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Vorwort 


Das Buch der Natur ist mit mathematischen Symbolen geschrieben. 
G. Galileo 


Die Chaostheorie und fraktale Geometrie hat inzwischen ihren Siegeszug um die Welt 
angetreten. Kaum eine Zeitschrift versäumte es, ihre Leser mit wundersamen und 
kunstvollen Bildern an der Entdeckungsreise in das Reich des Apfelmännchens und 
der Julia-Mengen teilhaben zu lassen. 


Zwischen den Anforderungen, die eine populäre, auf Anschauung gerichtete Einfüh- 
rung und eine rein wissenschaftlich orientierte Abhandlung stellt, klafft eine große 
Lücke. Hier setzt das vorliegende Buch ein. Es liefert die mathematischen Grundlagen 
für die Theorie der dynamischen Systeme auf einem mittleren Niveau. Dabei werden 
nur elementare Kenntnisse der Differential- und Integralrechnung, der analytischen 
Geometrie und der komplexen Zahlen vorausgesetzt. Es vermittelt fundierte Einblik- 
ke in folgende Bereiche der dynamischen Systemtheorie: 


» Fixpunkt-Theorie 
Ljapunow-Exponenten 
Bifurkationen nach Feigenbaum, Hopf 
Phasen-Diagramme 


Poincare-Schnitte 

Dimensionsbegriffe 

KAM-Theorie 
Computerprogramme aus allen gängigen Programmiersprachen liefern mathemati- 
sche Algorithmen für 
Iterierte Funktionssysteme 


> 
>» 
> 
» Attraktoren 
> 
>» 
> 


Lindenmayer-Systeme 
Julia-Mengen 
Mandelbrot-Mengen 
Fraktale Kurven 


VW EEE VEWV  V 


Zellular-Automaten 


Besonderern Wert wurde auf die Darstellung von Anwendungen gelegt. Der Leser 
erfährt wichtige Auswirkungen des Chaos in der Natur, z.B. aus den Bereichen 
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Chemie (oszillierende Reaktionen) 

Physik (nichtlineares Pendel, Isospin-Magnetismus) 

Elektronik (Diodenschaltkreis, Oszillator) 

Astronomie (Saturnringe) 

Populationsdynamik (Volterra-Gleichung, Wirt-Parasit-Modelle) 

Clusterbildung 

Ein ausführliches Einleitungskapitel führt dem Leser die Entstehung der Chaostheorie 
und der fraktalen Geometrie vor Augen. Die wichtigsten Begriffe der dynamischen 


Systemtheorie werden in Kapitel 19 in Stichwort-Form erläutert. Circa 200 Abbil- 
dungen dienen dazu, die Anschaulichkeit zu erhöhen. 


VEWVEVEVEEVENV. 


Neben der Vielzahl der im Buch aufgelisteten Programme enthält die beigefügte Dis- 
kette zahlreiche weitere Programme, die aus Umfangsgründen nicht abgedruckt wur- 
den. Die Programme sind in jeweils einem Unterverzeichnis der Diskette zusammen- 
gefaßt, das wie die Kapitelnummer lautet. Die Programme tragen den Namen, der im 
Fließtext oder in der Übungsaufgabe genannt ist. 


Das schon erwähnte Kapitel 1 bietet einen Einblick in die Entstehungsgeschichte der 
Chaostheorie, die nicht von Mathematikern initiiert wurde, sondern durch For- 
schungsbeiträge aus verschiedenartigen Gebieten wie Wetterkunde, Medizin, Chemie, 
Astronomie und Biologie entstand. 


Kapitel 2 behandelt die eindimensionalen dynamischen Systeme exemplarisch am 
Beispiel der logistischen Gleichung. Zweidimensionale Systeme werden in den Kapi- 
teln 3 bis 5 besprochen. Kapitel 3 zeigt die Kreisgleichung auf, Kapitel 4 die gekop- 
pelte logistische Gleichung und Kapitel 5 das Henon-System. In Kapitel 6 findet sich 
eine ausführliche Diskussion des dreidimensionalen Lorenz-Systems. 


Kapitel 7 vermittelt einen Eindruck über die weiteren bekannten Attraktoren, z.B. 
von Rössler, Ueda, Duffing und anderen. Konservative Systeme und Anwendungen 
der KAM-Theorie werden im Kapitel 8 anhand der quadratische Henon-Gleichung, 
der Twist-Map und des Henon-Heiles-Systems besprochen. Den Weg ins Chaos |lie- 


fern die iterativen Systeme wie die Hufeisen-, Katzen- und Bäcker-Abbildung des 
Kapitels 9. 


Das Chaosspiel von Kapitel 10 führt in die fraktale Geometrie ein. Die wichtigsten 
fraktalen und selbstähnlichen Kurven von Koch, Sierpinski, Levy, Cesäro, Peano und 


anderen finden sich in den Kapiteln 11 und 12, ebenso die Bäume nach Cayley und 
Pythagoras. 


Das Kapitel 13 ist den Iterierten Funktionssystemen (IFS) nach Barnsley gewidmet. 
Hier findet der Leser den IFS-Code für fraktale Kurven und Pflanzenobjekte wie Far- 
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ne, Blätter und Bäume. Kapitel 14 ergänzt diese Darstellung durch die Turtle- 
Graphik und liefert damit die Theorie der Lindenmayer-Systeme. 


Kapitel 15 zeigt grundlegende Eigenschaften der Julia-Mengen auf und liefert vielfäl- 
tige Algorithmen zur Erzeugung von Julia-Graphiken, darunter das Distanz- 
Verfahren, die Backtracking-Methode und die inverse Iteration. Eng damit zusam- 
men hängt die Theorie der Mandelbrot-Menge, die im folgenden Kapitel 16 geschil- 
dert wird. Die Darstellung beschränkt sich aber nicht nur auf die Mandelbrot-Menge 
der quadratischen Funktion, sondern umfaßt auch die trigonometrischen und Expo- 
nentialfunktionen. 


Den Anwendungen gewidmet sind die umfangreicheren Kapitel 17 und 18. Das erst- 
genannte enthält Beispiele aus Chemie, Elektronik und Physik. Das folgende Kapitel 
behandelt Biologie, Populationsdynamik, Zellularautomaten und Clusterbildung 
(DLA). 


Dem Verlag danke ich für die Herausgabe und gute Ausstattung dieses Buchs mit 
Farbtafeln und Diskette, ebenso für die Hilfe bei der Beschaffung von amerikanischer 
Literatur. Meinem Kollegen Herrn Prof. Dr. Dietrich Schwägerl von der FH Mün- 
chen (Fachbereich Mathematik/Informatik) verdanke ich manche Anregungen. We- 
sentliche Unterstützung bei der Literatursuche verdanke ich Herrn StR Franz Moser 
(Haag). Zum besonderen Dank bin ich Herrn Dr. Leo Klingen (Bonn) verpflichtet, 
der mir wertvolle Hinweise für mein Manuskript gab. 


Allen Lesern dieses Buchs wünsche ich eine anregende Lektüre! 


Dietmar Herrmann, März 94 


Hinweise zu den Graphik-Programmen 


Die im diesem Buch enthaltenen Programme sind für den schon längst zum Standard 
gewordenen VGA-Modus geschrieben. Sie können aber mit nur geringen Änderungen 
für andere Auflösungen umgeschrieben werden. ‚ 


Mit der screen-Anweisung kann in Quick Basic der Graphik-Modus gewählt werden. 
Das bei MS-DOS ab Version 5.0 mitgelieferte Q-Basic ist fast vollständig kompatibel 
zum Quick Basic-Compiler, ist aber als Interpretersystem wesentlich langsamer. 
Weitgehend kompatibel ist auch das frühere Turbo Basic, das nun Power Basic heißt. 
Folgende Parameterwerte sind in der screen-Anweisung erlaubt 


> screen 0 Textmodus 
> screen 1 CGA-Modus 320x200 Punkte 
>» screen 2 CGA-Modus 640 x 200 Punkte 


il 14 BR Vorwort 
N 

i > screen 7  EGA-, VGA-Modus 320x200 Punkte 

il > screen8 EGA-, VGA-Modus 640x200 Punkte 

il >» screen 9 EGA-, VGA-Modus 640x350 (64K-Videospeicher) 

| > screen 10 EGA-, VGA-Modus 640 x 350 Punkte 

| > screen ll  VGA-, MCGA-Modus 640 x 480 Punkte (2 Farben) 

ıl > screen 12 VGA-Modus 640 x 480 Punkte (16 Farben) | 

I >» screen 13 VGA-, MCGA-Modus 320x200 Punkte (256 Farben) 


Besitzer einer Hercules-Karte müssen zuerst das Programm abherc.com oder msherc.exe 
"N starten. In diesem Modus gibt es nur eine Farbe. Der Bildschirmausschnitt in Quick 
I Basic kann mit dem window-Befehl unabhängig von der Bildschirmauflösung gewählt 
| werden. Beispielsweise definiert window(-2,-3)-(4,5) einen Bildschirmauschnitt im Be- 
reich {-2<x<4}x{-3<y<5}. 


In Turbo Pascal gibt es den detect-Befehl, der die installierte Graphikkarte des Rech- 
ii ners weitgehend automatisch bestimmt. Der zugehörige Programmabschnitt lautet 


Graphdriver := detect; 
Il InitGraph(Graphdriver,‚GraphMode, '\tp\bgi'); 
I £ SetGraphMOde(Graphmode) ; 


Dabei müssen sich die BGI (Borland Graphics Inferface)-Dateien, z.B. egavga.bgi in 
A dem angegebenenen Verzeichnis befinden. Hat man eine VGA-Karte, so kann der 
VGA-Modus direkt programmiert werden mittels 


GraphDriver = 4; Graphmode := VGAHi; 
InitGraph(Graphdriver ‚GraphMode, '\tp\bgi'); 


Bei Benutzung der Graphik-Befehle muß zuvor die Graphik-Bibliothek mit dem Be- 
fehl uses graph eingebunden werden. 


Hi Die neueren Graphikkarten verfügen in der Regel über einen Super-VGA-, VESA- 
k oder IBM8514-Modus. Dazu muß vor dem Aufruf der BGI-Datei, z.B. svga256.bgi 
ii oder ibm8514.bgi der entsprechende Treiber von der Hersteller-Diskette geladen wer- 
" den. Bei Hercules-Karten muß vor dem Aktivieren von herc.bgi ebenfalls das entspre- 
N chende Programm aufgerufen werden. Für VESA-Karten befindet sich bei dem Da- 


I teisystem von Turbo Pascal 7.0 ein separates Programm, das in den VESA- 
ii Graphikmodus umschaltet. 
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Turbo € benützt ebenfalls das BGI-Interface. Daher gilt das für Turbo Pascal Gesagte 
hier analog. Die Graphik kann gestartet werden mit dem Programmausschnitt 


gdriver = DETECT; 
initgraph(&gdriver ‚&gmode, "\\tc\\bgi"); 
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Der VGA-Modus wird initialisiert mit 
gdriver = 4; gmode = VGAHI; 
initgraph(&gdriver,&qmode,"\\tc\\bgi"); 


Auch hier muß sich der BGI-Treiber im angegebenen Pfad befinden. Ist die Pfadan- 
gabe die leere Zeichenkette, so sucht der Compiler im aktuellen Verzeichnis. Als 
Header-Datei wird stets graph.h benötigt. Beim Compilieren muß die Graphik- 
Bibliothek graphics. ib eingebunden werden. 


1 Einleitung: Wie alles anfing 


Von demjenigen, der die Geschichte irgendeines 

Wissens überliefern will, Rönnen wir mit Recht verlangen, 
daß er uns Nachricht gebe, wie die Phänomene nach 

und nach bekannt geworden und was man darüber 
phantasiert, gewähnt, gemeint und gedacht habe. 

J. W. von Goethe 


Chaos ist heutzutage ein Modewort geworden und wird meist als Superlativ von 
Unordnung verwendet. Das Wort »Chaos« leitet sich aus dem griechischen Wort 
xaog her und bedeutet ursprünglich den unendlich leeren Raum oder die gestaltlose: 
Urmasse: Etoı nev npwrıora xaog yever - Wahrlich zuerst entstand das Chaos, 
schreibt Hesiod in seiner Theogonie. Im Lateinischen wurde das Wort in ähnlicher 
Bedeutung übernommen. 


Ante mare et terras et quod tegit omnia caelum unus erat toto naturae vultus in orbe, 
quem dixere chaos... 


schreibt Ovid in seinen Metamorphosen. Das Chaos ist damit die Urform der Erde, 
bevor sie von Gott mit Ordnung und Harmonie gefüllt wird; ganz im Sinne des To- 
hu-wa-bohu aus der Genesis (1. Buch Moses): Und die Erde war wüst und leer und 
es ward finster über der Tyiefe. Chaos im heutigen Sprachgebrauch bedeutet den 
Zustand der Unordnung und Irregularität. 


Die Philosophie hat sich schon lange mit dem Begriff des Chaos auseinandergesetzt. 
Die Philosophen sind daher skeptisch über die Einvernahme des Chaos durch die 
moderne Naturwissenschaft. Die Erfahrung des Chaos unterliegt in der Geschichte 
des Denkens einer Logik der Verdrängung und Wiederkehr, schreibt N. Bolz von der 
FU Berlin in seinem Buch »Die Welt als Chaos und als Simulation« (Fink Verlag 
1992). Kennzeichnend stellt er seinem Vorwort ein Zitat von L. Wittgenstein voran: 


Beim Philosophieren muß man in’s alte Chaos hinabsteigen, und sich dort wohlfüh- 


len. Steigen sie immer von den kahlen Höhen der Gescheitheit in die grünenden Täler 
der Dummbeit. 


1.1 Henri Poincar& | 1% 


In der Physik versteht man chaotische Vorgänge als zeitlich und räumlich nicht vor- 
hersagbare Bewegungen in einem Phasenraum. Unter deterministischem Chaos ver- 
steht man das chaotische Verhalten eines Systems, dessen Anfangsbedingungen und 
Wirkungsgesetz vollständig bekannt sind. Poincare entdeckte 1892, daß ein mechani- 
sches System mit einer wohldefinierten Hamilton-Funktion durchaus eine chaotische 
Bewegung zeigen kann. Bis dahin hatten die Physiker angenommen (und in vielen 
Physikbüchern liest man dies noch implizit), daß alle eindeutig formulierten Probleme 
in Form einer Differential- oder Differenzengleichung gutartige und reguläre Lösun- 
gen aufweisen würden. 


In der amerikanischen Literatur wird die Entdeckung der Chaostheorie als dritte 
wissenschaftliche Revolution in diesem Jahrhundert nach der Relativitätstheorie und 
Quantenmechanik gefeiert, im Sinne des Wissenschaftstheoretikers Thomas $. Kuhn: 


Die Relativitätstheorie Einsteins beendete die Newtonsche Illusion von Zeit und 
Raum als absolute Kategorien, die Ouantentheorie setzte dem Newtonschen Traum 
von einem exakt kontrollierbaren Meßprozeß ein Ende, und nun erledigt die Cha- 
ostheorie die Laplacesche Utopie von der deterministischen Vorhersagbarkeit. 


schreibt J. Ford in seinem Aufsatz » What is Chaos that we should be mindful for 
it?«. 


Wo das Chaos beginnt, so die herrschende Meinung, hört die klassische Wissenschaft 
auf. Solange die Naturwissenschaftler sich nur mit Problemen beschäftigen, die re- 
gelmäßige und stetige Lösungen zeigen, bleiben sie unwissend über die Entwicklung 
des Wetters, über die Turbulenz von Strömungen, über die Fluktuationen von Tier- 
populationen und über die Oszillationen von Herz und Gehirn (]. Gleick). Besonders 
die unregelmäßige Seite der Natur wurde als monströse Absurdität abgetan; dies 
besonders in der Mathematik, wo man die, in keinem Punkt differenzierbaren Kur- 
ven von Peano, Hilbert, Koch usw. als Kuriositäten beiseitelegte. 


In den siebziger Jahren nahm sich eine kleine Schar von Wissenschaftlern in den USA 
und Europas der »Unordnung« an. Mathematiker, Physiker, Biologen, Mediziner 
und Chemiker griffen gemeinsam neue Fragestellungen auf und versuchten, in den 
verschiedenen Formen von Unregelmäßigkeiten gemeinsame Verbindungen aufzuspü- 
ren. Während die Wissenschaft bisher von der immer mehr zunehmenden Spezialisie- 
rung profitierte, führte die Chaosforschung dazu, gemeinsame Modelle von dynami- 
schen Systemen zu erarbeiten. In folgenden Gebieten fanden sich u.a. chaotische Mo- 
delle: 


Wissenschaft Anwendung 
Physik Erzw.Pendelschwingungen, Turbulenz v.Flüssigkeiten 
Optik Laserphysik 


Elektronik Josephson-Schaltungen 
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Astronomie Stabilität der Planetenbahnen 
Chemie Oszillierende chemische Reaktionen 
Populationsdynamik Fluktuationen bei Tierpopulationen 


Während etwa ein Drittel aller bei der Zeitschrift Physical Review Letters publizier- 
ten Arbeiten sich mit Chaos beschäftigen, sind sich die Mathematiker in Europa nicht 
so einig über den Wert der Chaosforschung und der fraktalen Geometrie. Das Malen 
von schönen Apfelmännchen am Bildschirm löst keine ernsthaften Probleme, die 
Chaos-Mathematik muß ihren Nutzen erst unter Beweis stellen, ist eine gängige Mei- 
nung unter Mathematikern, die der Autor öfters gehört hat. 


In Folge sollen einige wichtige Personen und Stationen aufgezeigt werden, die zur 
Entstehung der Chaostheorie und der Fraktale entscheidend beigetragen haben. 


1.1 Henri Poincare 


1887 schrieb der schwedische König Oskar II von Schweden einen wissenschaftlichen 
Wettbewerb mit dem Preis von 2500 Goldkronen aus. Beantwortet werden sollte die 
Frage Ist das Planetensystem stabil? Den Siegerpreis trug der französische Mathema- 
tiker Henri Poincare davon. Er stellte in seiner Arbeit fest: 


Die kanonischen Gleichungen der Himmelsmechanik besitzen kein (außer bei speziel- 
len Anfangsbedingungen) geschlossenes analytisches Lösungsintegral außer dem 
Energieintegral. 


Damit war das Problem zwar nicht gelöst, aber dessen Unlösbarkeit mit analytischen 
Methoden gezeigt; d.h. mit der Methode von Hamilton-Jacobi. Die Poincare- Lösung 
entsprach aber nicht der herkömmlichen Auffassung von Wissenschaft. Poincares 
mathematische Untersuchungen, 1899 publiziert als Les methodes nouvelles de la 
mecanique celeste, bildeten die Grundlage der späteren Theorie der nichtlinearen 
Systemtheorie. In seinem geistigen Auge sah er den Attraktor eines Drei-Körper- 
Problems bereits voraus. In Proposition 397 des Werkes schreibt er nämlich: 


Wenn man versucht, sich die Figur vorzustellen, die von den beiden Kurven und end- 
lich vielen ihrer Schnittpunkte geformt wird, von denen jeder eine doppelte asympto- 
tische Lösung darstellt, so bilden diese Schnittpunkte eine Art Gitter, Gewebe oder 
Maschenwerk mit unendlich feinen Maschen. Keine der beiden Kurven darf sich je- 
mals selbst schneiden, sondern muß sich auf sehr komplexe Art so krümmen, daß sie 
unendlich oft durch alle Maschen des Gitters geht. 


Poincares Theorie wurde später von den Mathematikern Kolmogorow, Arnold und 
Moser in Form der sog. KAM-Theorie fortgeführt. Von grundlegender Bedeutung 
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war die Erfindung des Poincar&-Schnitts. Hierbei kann eine Kurve beliebiger Dimen- 
sion im Phasenraum durch eine Projektion auf eine bestimmte Hyperebene veran- 
schaulicht werden. Poincar€ kann - neben David Hilbert - als der letzte Universalist 
der Mathematik angesehen werden. Er war der Begründer der Topologie und lieferte 
grundlegende Beiträge u.a. für Differentialgleichungen, Zahlentheorie, komplexe 
Analysis, Mechanik und Astronomie. 


1.2 Balthasar van der Pol 


Auch in anderen Zweigen der Wissenschaften kündigten sich die Vorboten des Chaos 
an. Sie wurden jedoch noch nicht erkannt, da die Zeit noch nicht reif dafür war. Der 
holländische Elektroingenieur van der Pol hatte 1927 mittels einer Röhrenschaltung 
einen Öszillator entwickelt (publiziert in Nature 120 (1927)). Jeder Physikstudent 
würde heute das Verhalten eines Schwingkreises am Oszilloskop beobachten. Da es 
dieses Gerät damals noch nicht gab, verfolgte er die Schwingungen seines Stromkrei- 
ses mithilfe eines Telefonhörers. Der Ton stabilisierte sich meist kurzzeitig, um dann 
sprunghaft von einer Frequenz zur nächsten zu wechseln. Manchmal jedoch, schreibt 
er in seinem Bericht an Nature, verändert sich der Ton in unregelmäßigen Abständen 
völlig irregulär. Das Chaos war hier im Telefonhörer hörbar, wurde aber nicht er- 
kannt: Dies ist jedoch ein untergeordnetes Phänomen, schreibt er weiter. 


Nach dem zweiten Weltkrieg wurde das Verhalten des Van-der-Pol-Oszillators von 
Cartwright und Littlewood und später von Levinson untersucht. Sie fanden zum 
erstenmal, daß ein voll determiniertes System irreguläre, damals als zufällig angese- 
hene, Resultate zeigt. Die Ergebnisse des letztgenannten Autors wurden publiziert in: 
N. Levinson, A second-order differential equation with singular solutions, Ann. 
Math. 50 (1949). Dieser Levinson war es auch, der in einem Brief an $. Smale auf 
diese Differentialgleichung aufmerksam machte, deren Lösungen zugleich stabil und 
irregulär waren! 


1.3 Edward Lorenz 


An einem Wintertag im Jahr 1961 ließ Edward Lorenz am Massachusetts Institute of 
Technology (MIT) sein zuletzt geschriebenes Konvektions-Programm ein zweites Mal 
laufen. Jedoch gab er die Anfangswerte, die in FORTRAN standardmäßig sechsstellig 
ausgegeben werden, verkürzt mit 3 Dezimalen ein, in der Meinung, daß eine Abwei- 
chung von einem Promille keine Bedeutung habe. 


Zur Berechnung der Luftkonvektion benützte er ein System von 7 Differential- 
gleichungen, das Barry Saltzmann von der Yale University im gleichen Jahr aus den 
Navier-Stokes-Gleichungen hergeleitet hatte. Dieses System konnte nicht analytisch 
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(d.h. formelmäßig) gelöst werden, und man war daher auf eine numerische Compu- 
terlösung angewiesen. Lorenz hatte entdeckt, daß bei nichtperiodischen Lösungen der 
Saltzmann-Gleichungen vier der 7 Variablen gegen Null strebten. Somit konnte Lo- 
renz das System auf drei Gleichungen reduzieren, die heute die Lorenz-Gleichungen 
genannt werden 


Da sein Rechner, ein altes Röhrengerät namens Royal McBee LGP-300, bei einer 
Rechengeschwindigkeit von 60 Multiplikationen pro Sekunde längere Zeit zur Be- 
rechnung benötigte, kehrte er erst nach einiger Zeit zurück, um zu entdecken, daß die 
zweite Lösung nur noch in den Anfangswerten mit der ersten Lösung übereinstimm- 
te! Alle weitere Werte unterschieden sich beträchtlich voneinander. Lorenz grundle- 
gende Einsicht war es, zu erkennen, daß dies nicht ein Computerfehler, sondern ein 
prinzipielle Eigenschaft seines Gleichungssystems war. 


Dies war die Geburtsstunde eines Phänomens, das Lorenz auf einem wissenschaftli- 
chen Collogium 1979 in Washington den Schmetterlingseffekt nannte: Der Schlag 
eines Schmetterlingsflügel über Brasilien kann einen Tornado über Texas hervorru- 
fen. Schon die geringste Variation in den Anfangsbedingungen eines nichtlinearen 
Systems ruft eine vollständige Änderung in den Lösungen hervor. Lorenz schreibt: 


Ich begriff damals, daß jedes physikalische System, das keine Periodizität aufweist, 
auch keinerlei Vorhersagen erlaubt. 


Diese sensitive Abhängigkeit von den Anfangsbedingungen war bereits von Henri 
Poincar& vorhergesehen worden. In seinem Werk La Science et IHypothese hatte er 
bereits 1903 geschrieben: 


Mitunter kann es geschehen, daß kleine Abweichungen in den Anfangsbedingungen 
sehr große in den resultierenden Phänomenen hervorrufen. Ein kleiner Fehler in je- 
nem bewirkt einen riesigen Fehler in diesem. Eine Vorhersage wird damit unmöglich. 


Lorenz publizierte seine Erkenntnis in dem Artikel Deterministic Nonperiodic Flow 
im Journal of Atmospheric Sciences, 20 (1963), einer meteorologischen Zeitschrift, 
die von Physikern und Mathematikern kaum gelesen wird. So blieb seine Entdeckung 
für ein Jahrzehnt weitgehend unbekannt. Die wenigen Naturwissenschaftler, die da- 
von Kenntnis erhielten, wunderten sich nur, wieso ein so einfaches System, wie das 
der Lorenz-Gleichungen, ein so kompliziertes Lösungsverhalten aufwies. Auch wenn 
sich die physikalische Bedeutung der Lorenz-Gleichungen nachträglich als gering 
herausgestellt hat, so sind sie in der Chaostheorie von grundsätzlicher Bedeutung und 
stellen das in der Literatur am häufigsten untersuchte chaotische System dar. 
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1.4 Michel Henon 


Der aufschlußreichste, weil einfachste seltsame Attraktor stammt von dem Astrono- 
men Michel Henon (A two-dimensional mapping with a strange attractor, Comm. 
Math. Phys 50, 1976), der seit 1976 an der Sternwarte Nizza in Südfrankreich tätig 
war. In seiner Doktorarbeit hatte er 1960, von der willkürlichen Annahme ausge- 
hend, daß ein Sternhaufen bei Maßstabsänderungen selbstähnlich sei, seine Theorie 
des gravothermalen Kollaps geschaffen. Bei einem Studienaufenthalt 1962 in Prince- 
ton hatte er zum ersten Mal Zugang zu einem Großrechner. 


Damit konnte er ein Problem, wie die Berechnung eines Umlaufs eines galaktischen 
Systems um ein scheibenförmiges Gravitationszentrum in Angriff nehmen. Dieses 
nicht analytisch lösbare Problem ist später unter dem Namen Henon-Heiles-Problem 
bekannt geworden. Wegen der Langsamkeit der damaligen Rechnergeneration mußte 
Hänon seine Theorie stark vereinfachen. In Ermangelung eines Plotters zeichnete er 
die Schnittpunkte der galaktischen Bahnen mit einer gedachten Energie-Hyperebene 
von Hand. Wie alle Astronomen interessierte er sich zunächst nur für periodische 
Bahnen. Als er jedoch anfing - zusammen mit einem Examensstudenten Carl Heiles — 
die Schnittpunkte mit höheren Energie-Ebenen zu zeichnen, erkannten beide, daß die 
Situation sich vollständig wandelte. Sie schrieben im Astronomical Journal 69, 
(1964) in The applicability of the third Integral of motion: 


Manche Bahnen wurden so instabil, daß sich die Punkte wie zufällig über das Papier 
verteilten. Völlige Unordnung trat zusammen mit Resten von Ordnung auf, die an 
Inseln erinnerten. 


Um den zugrundeliegende Mechanismus erkennen zu können, fehlte ihm das mathe- 
matische Rüstzeug. Als er 1976 einen Vortrag des Physikers Poumeau über die At- 
traktoren von Lorenz und Rössler hörte, erhielt er eine Vorstellung, wie es in einem 
Phasenraum zur Streckung und Faltung kommen kann. Nach dem Vorbild von Sma- 
les Hufeisen-Idee fand er durch Kombination von vier einfachen affinen Abbildungen 
die Gleichungen des nach ihm benannten Attraktors: 
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1987 konnte Lennard Carleson einen strengen Beweis für die Seltsamkeit des Henon- 
Attraktors liefern. 
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1.5 Robert May 


Robert May kam nur durch Zufall zur Biologie. Er hatte sich in Harvard in Ange- 
wandter Mathematik habilitiert und wurde nach seinem Weggang nach Princeton 
1971 überraschend mit der Abhaltung von Mathematikvorlesungen für Biologen 
beauftragt. 


Er beschäftigte sich unter anderem mit der sog. logistischen Gleichung 
Xn41 = 7% (1%) 


deren Namen sich von dem französischen Wort logis (Wohnung) ableitet. Diese Glei- 
chung stellt ein Modell für das Wachstum einer Population in Abhängigkeit von dem 
Parameter r dar. Die logistische Gleichung ist ein Spezialfall der 1845 von Verhulst 
eingeführten Gleichung 


N, =N;,(a-bN,) 


zur Berechnung einer Populationsstärke. Durch graphische Darstellungen erkannte 
May, daß für kleine Werte von r das Populationswachstum eindeutig ist, für größer 
werdende Parameter zwischen zwei Populationswerten hin- und herschwankt. Ändert 
man den Parameter r nur wenig, so oszilliert die Populationszahl nunmehr zwischen 
4 Werten, dann zwischen 8, 16, 32 Werten usw., um dann ab einen bestimmten Wert 
völlig unvorhersagbar zu werden. Dieser Vorgang wird Periodenverdopplung ge- 
nannt. 


Innerhalb dieses chaotischen Bereichs gab es aber wieder Parameterwerte, von May 
Fenster genannt, bei denen sich die Populationszahl auf wenige Werte beschränkte. 
May erkannte, daß bereits einfache deterministische Modelle ein zufällig erscheinen- 
des, chaotisches Verhalten erklären konnten und daß diese Modelle keineswegs allein 
auf die Biologie bzw. Populationsdynamik beschränkt waren. 


Da schrieb er einen, nach eigenen Worten, messianischen Artikel »Simple Mathema- 
tical Models with very Complicated Dynamics«, der in Nature, 261 (1976) publiziert 
wurde. Seine Arbeit schließt mit einem Appell, in den Schulen das Rüstzeug zum 
Verstehen von nichtlinearen Systemen zu lehren: 


Nicht allein auf dem Gebiet wissenschaftlicher Forschung, sondern ebenso auf dem- 
jenigen der Politik und Wirtschaft stünden wir besser dar, wenn mehr Leute zu der 
Einsicht kämen, daß einfache nichtlineare Systeme nicht notwendigerweise auch ein- 
fache dynamische Eigenschaften zeitigen. 
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1.6 James Yorke 


J. Yorke vom Institute for Physical Science der Universität Maryland gilt als der 
»Entdecker« von Lorenz Arbeit. Die Geschichte ereignete sich folgendermaßen: Yor- 
ke hatte von einem Strömungsspezialisten die Lorenzsche Arbeit erhalten und ver- 
sandte sie, mit seiner Adresse versehen, an Stephen Smale. Von diesem Exemplar 
wurde dann eine Vielzahl von Kopien hergestellt, die überall verteilt wurden. So kam 
es, daß jede Kopie die Anschrift Yorkes trug. 


Bei seiner Arbeit an der logistischen Gleichung publizierte er mit seinem Assistenten 
Li den heute berühmten Artikel mit dem etwas geheimnisvollen Titel Period Three 
Implies Chaos in der mathematischen Zeitschrift mit der größten Auflage, des Ameri- 
can Mathematic Monthly. Dieser Aufsatz gab der Chaostheorie ihren Namen. 


Anläßlich eines mathematischen Kongresses im (damals noch zweigeteilten) Berlin 
machte Yorke eine Wannsee-Dampferfahrt. Dabei wurde er von einem, ihm unbe- 
kannten, russischen Mathematiker bedrängt, der ihm mit Hilfe eines englisch spre- 
chenden, polnischen Mathematikers zu erklären versuchte, daß seine Entdeckung 
keineswegs neu sei, genauere Details würde er ihm noch mitteilen. 


Vier Monate später erhielt Yorke von A. N. Sarkowskii — dies war der Name des 
russischen Mathematikers - einen Artikel »Coexistence of cycles of a continous map 
of a line itself«, in dem Yorkes Ergebnis in verallgemeinerter Form vorweggenommen 
war. Sarkowsky hatte nämlich eine spezielle Anordnung der natürlichen Zahlen ge- 
funden, die es ermöglichte, aufgrund einer bekannten Periode auch alle weiteren Pe- 
riodenlängen anzugeben. Interessant ist, daß dabei nur die Stetigkeit der verwendeten 
Funktion eingeht. Allerdings gilt das Theorem nur für eindimensionale Abbildungen. 


1.7 Stephen Smale 


S. Smale von der Berkley-Universität (California) hatte sich 1966 bereits internationa- 
len Ruhm auf Grund seiner Arbeiten über mehrdimensionale Topologie erworben. Er 
hatte ein Problem über Mannigfaltigen in mindestens 5 Dimensionen gelöst, das 
1906 von Poincar& aufgeworfen worden war und als unangreifbar galt. Smale be- 
trachtete aber die Wissenschaft nicht als Elfenbeinturm und engagierte sich u.a. stark 
beim Protest gegen Vietnamkrieg. 


So erhielt er im Sommer desselben Jahres eine Vorladung vor das Kommitee für an- 
tiamerikanische Umtriebe, was ihn aber nicht hinderte, nach Moskau zum Interna- 
tionalen Mathematikerkongreß zu fahren. Dort konnte er die Fields-Medaille, die 
höchste mathematische Auszeichnung in Empfang nehmen. Als er auf der Haupt- 
treppe der Moskauer Universität stehend, eine internationale Presseerklärung gegen 
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den Vietnamkrieg - aber auch gegen jede sowjetische Aggression - abgab, wurde ihm 
daraufhin vom Nationalen Wissenschaftsrat sein Forschungsauftrag entzogen. 


Seit langem hatte sich Smale intensiv mit der Lösbarkeit von Differentialgleichungen 
auseinandergesetzt. 1959 erreichte ihn dann der Brief von Levinson, der ihm zeigte, 
daß Systeme - wie der Van-der-Pol-Oszillator - durchaus stabile und chaotische Lö- 
sungen haben können. Um das Verhalten des Oszillators verstehen zu können, unter- 
suchte er die Transformationen, die der Phasenraum des Oszillators erfährt. Dabei 
erkannte er, daß es zur Erklärung des chaotischen Verhaltens nicht ausreicht, nur die 
Dehnung und Stauchung des Phasenraum zuzulassen. Vielmehr werden auch Faltun- 
gen benötigt, um den Weg ins Chaos zu beschreiben. Dieser Mechanismus wurde als 
Hufeisen-Modell (englisch horseshoe) bekannt. 


Mit Hilfe der von Smale entwickelten symbolischen Dynamik können dynamische 
Systeme als äquivalent klassifiziert werden. 


1.8 Mitchell Feigenbaum 


Außer May beschäftigte sich eine ganze Reihe weiterer Forscher mit der logistischen 
Gleichung. Darunter befanden sich S. Großmann und $S. Thomae von der Universität 
Marburg und später P. Collet und J. Eckmann. Das erstgenannte deutsch- 
französische Autorenpaar entdeckte das geometrische Gesetz der Periodenverdopp- 
lung der logistischen Gleichung und berechnete bereits die Konstante, die nun allge- 
mein die Feigenbaum-Konstante genannt wird. $S. Thomae ist übrigens der Begründer 
der Katastrophentheorie. Mit ihrer Publikation in der Zeitschrift für Naturforschung 
A32a (1977) kamen Großmann und Thomae der Publikation von M. Feigenbaum in 
J. Stat. Phys. 19 (1978) zuvor. 


M. Feigenbaum, der durch keine spezielle Publikation bisher hervorgetreten war, 
beschäftigte sich aufgrund eines Referats von S. Smale im Sommer 1975 ausschließ- 
lich mit chaotischen Problemen, speziell aber mit der Periodenverdopplung der logi- 
stischen Gleichung. 


Von den Kollegen N. Metropolis und P. und M. Stein erfuhr er, daß auch andere 
Funktionen wie x,,, =rsin(nx,„) das Phänomen der Periodenverdopplungen zeigten. 
Als er für diese Gleichung dieselbe Konstante F = 4.6692016090.. wie für die logisti- 
sche Gleichung ermittelte, traf ihn wie ein Blitz die Erkenntnis, daß es sich hier um 
eine universelle Beziehung handeln müsse. 


Dieses universelle Gesetz konnte er nicht beweisen, sondern nur durch zahlreiche 
numerische Berechnungen motivieren. Die meisten Mathematiker blieben wegen des 
fehlenden Beweises skeptisch, unter anderen insbesondere auch Mandelbrot; die 
Physiker waren begeistert. R. Gilmore schreibt 
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Es war eine ebenso glückliche wie schockierende Entdeckung, daß es in nichtlinearen 


Systemen Strukturen gibt, die immer gleich bleiben, wenn man sie nur in der richti- 
gen Weise ansieht. 


Einen ersten Beweis lieferte dann 1979 ©. Lanford, der später in der Arbeit »A com- 
puter-assisted proof of the Feigenbaum conjectures« publiziert wurde. Erst später 
gelang es Feigenbaum, eine Funktionalgleichung für die universelle Funktion mit 
Periodenverdopplungen aufzustellen, aus der dann die Feigenbaum-Konstante als 
Eigenwert erschien. Diese Funktionalgleichung war: 


g(x)=-og(g(#)) 


Auch wenn Feigenbaum von den Mathematikern nicht die gewünschte Anerkennung 
erhielt, so wird doch sein Namen mit den Gabel-Bifurkationen und Bifurkations- 
Diagrammen verbunden sein. 


1.9 David Ruelle 


D. Ruelle, von Geburt Belgier, war 1970 zum Institut des Hautes Etudes Scientifique 
gekommen. Er hatte in Vorlesungen von Stephen Smale und dessen Hufeisenabbil- 
dung gehört. Seitdem trug er sich mit dem Gedanken, daß das Auftreten von Turbu- 
lenzen in Flüssigkeiten eine Auswirkung des Chaos sein müsse. Zusammen mit dem 
damaligen Gast am Institut, F. Takens, schrieb er einen Aufsatz On the Nature of 
Turbulence, in dem Turbulenzen im Sinne von Smale als Dehnungen und Faltungen 
des Phasenraums, erklärt wurden. Die Geometrie des Vorgangs nannte er einen selt- 
samen Attraktor (englisch strange attractor) und prägte damit einen grundlegenden 
Begriff der entstehenden Chaosforschung. 


Die meisten Physiker lehnten damals die neue Theorie ab. Als Beispiel sei der be- 
rühmte Theoretiker R. Feymanın zitiert: 


Es hat mich stets irritiert, daß den Gesetzen zufolge, soweit wir sie heute verstehen, 
ein Computer eine unendlich große Zahl lokaler Operationen durchführen muß, um 
auszurechnen, was in einer winzigen Raumzone vor sich geht in einem beliebig kur- 
zen Zeitabschnitt. 


Auch heute haben viele Physiker Probleme, sich einen solchen Attraktor vorzustellen. 
Er soll stabil sein - um einen Endzustand eines dynamischen Systems darzustellen. Er 
soll niedrigdimensional sein — damit er eine Bahn in einem Phasenraum von wenigen 
Freiheitsgraden bestimmt. Und er soll nichtperiodisch sein und dennoch das ganze 
Spektrum der bei Turbulenzen auftretenden Frequenzen erklären. Mit einem Wort, 
der Attraktor mußte fraktal sein. Der von Ruelle und Takens vorgeschlagene Weg ins 
Chaos ist als Ruelle-Takens-Szenario in die Literatur eingegangen. 
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Einen dritten Weg ins Chaos fanden Manneville und Poumeau 1979 in Form der sog. 
Intermittenz-Route. Intermittenz (englisch intermittence) bedeutet dasjenige Verhal- 
ten eines Systems, das sich weitgehend regulär verhält (entsprechend der laminaren 
Phase einer Strömung), aber durch statistisch verteilte irreguläre Perioden unterbro- 
chen wird. Diese irreguläre Störungen nehmen zu bis zu einem Punkt, an dem das 
Verhalten des Systems ins Chaos übergeht; analog dem Übergang einer laminaren 
Strömung in eine Turbulenz. Bei diesem Verhalten spricht man nun vom Manneville- 
Poumeau-Szenario. 


1.10 Benoit Mandelbrot 


»Hüte Dich vor der Geometrie« sagte der Mathematiker Scholem Mandelbrojt sei- 
nem Neffen Benoit, als dieser in Paris Mathematik studieren wollte. Er empfahl ihm 
das Studium einer 300-seitigen Arbeit von Gaston Julia aus dem Bereich der komple- 
xen Analysis. Aber diese Arbeit interessierte den damals noch jungen Benoit Mandel- 
brot nicht, obwohl er bei G. Julia Vorlesungen über Differentialgeometrie gehört 
hatte. Noch nicht, muß man sagen, denn das Werk von G. Julia und P. Fatou sollte 
später bestimmend für seine Arbeit sein. 


Als Mandelbrot 1958 zum IBM-Forschungsinstitut Thomas J. Watson in Yorktown 
Heights (New York) kam, war er ein Mann für alle Aufgaben. Er beschäftigte sich 
mit volkswirtschaftlichen Problemen wie die Entwicklung der Baumwollpreise, tätig- 
te Untersuchungen über Störgeräusche in Telefonnetzen und stellte ein Gesetz über 
die Worthäufigkeiten im Englischen auf. Nebenbei studierte er eine Vielzahl von 
unkonventionellen Arbeiten aus den verschiedensten mathematischen Themenberei- 
chen. Durch Zufall (oder Schicksal wie Mandelbrot schrieb) fiel ihm ein völlig unbe- 
kanntes statistisches Jahrbuch von 1961 in die Hand. Darin fand er einen Aufsatz 
von einem L. F. Richardson, der sich mit der Problematik der Längenmessung von 
Küstenlinien befaßte. Die Beschäftigung mit diesem Aufsatz wurde zum entscheiden- 
den Wendepunkt in seinem Denken. 


Er erkannte schnell, daß die widersprüchlichen Werte für Küstenlängen, die in Enzy- 
klopädien und Lexika mit Abweichungen bis zu 20% angegeben werden, auf die 
Verwendung verschiedener Maßstäbe zurückzuführen sind. Je feiner der angewandte 
Maßstab ist, umso mehr Details mißt er. Denkt man sich die Küstenlinie beliebig 


vergrößert, so könnte bei einem sehr kleinen Maßstab die Küstenlänge beliebig lang 
werden, schloß Mandelbrot. 


Bei der Untersuchung der Cantor-Menge, den Kurven von Hilbert, Peano und Sier- 
pinski erkannte er, daß diese Kurven nicht die Dimension einer Geraden haben konn- 
ten. Für diese Art von Objekten bildete er im Winter 1975 bei den Vorarbeiten für 
sein Buch Les objects fractal: forme, hasard et dimension den Namen Fraktale. Dies 
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war eine Ableitung vom lateinischen Wort frangere für brechen mit dem Partizip 
fractus. Mandelbrot, der zum Ärger der anderen Mathematiker stets neue Begriffe 
erfand, nannte den Dimensionsbegriff von F. Hausdorff und A. Besikowitsch fraktal 
und vereinnahmte damit den Begriff für sich. 


Die nicht von ihm allein entwickelte Theorie der Selbstähnlichkeit und Skalen- 
invarianz konnte auf eine Vielzahl von Objekten angewendet werden — von der 
Geometrie der Mondkrater und Verteilung der Galaxienhaufen bis hin zum Verlauf 
von Küstenlinien. Auf der Grundlage des Skalenverhaltens der Brownschen Bewe- 
gung konnte Mandelbrots Mitarbeiter R. Voss atemberaubende Graphiken von 
Landschaften mit Bergketten, Tälern und Wolken produzieren. Dies rief auch bald 
die Filmindustrie auf den Plan. L. Carpenter von Boeing Aircraft, später bei Lucas- 
film, entwickelte die Graphik-Techniken von Voss weiter und konnte so alle Hinter- 
grundbilder des Films Startrek II (Wrath of Khan) am Bildschirm erzeugen. 


In den Jahre 1979-80 war Mandelbrot Visiting-Professor für Mathematik an der 
Harvard Univerity und nahm seine Arbeit am Werk von Julia und Fatou wieder auf. 
Da plötzlich, genau am 1. April 1980, erschien eine apfelähnliche Figur am Bild- 
schirm. Die Iteration der einfachen komplexen Gleichung z,,ı =2; +c war der Pfad 
zur Entdeckung des Apfelmännchens, das heute zum Symbol der fraktalen Geometrie 
geworden ist. Alle seine Begriffe und Definitionen schrieb Mandelbrot 1982 in sei- 
nem berühmten Buch The fractal Geometry of Nature nieder, das als die Bibel der 
fraktalen Geometer angesehen wird. Es wurde angeblich zum meist verkauften Ma- 
thematikbuch aller Zeiten. 


1.11 Michael Barnsley 


Barnsley, der in Oxford studiert hatte, kam 1979 durch ein Treffen mit M. Feigen- 
baum zur Kenntnis der Bifurkationen und Periodenverdopplungen. Voller Eifer 
machte er sich ans Werk, das Phänomen der Periodenverdopplung mit Hilfe komple- 
xer Methoden zu erklären. Sein Aufsatz, den er bei der Zeitschrift Communications 
in Mathematical Physics eingereicht hatte, erhielt er vom Herausgeber David Ruelle 
zurück mit der Bemerkung, Julia-Mengen seien wohlbekannt, er solle sich mit Man- 
delbrot in Verbindung setzen. 


Bei der SIGGRAPH-Tagung 1985 in Kalifornien erregte Barnsley großes Aufsehen. 
Es war ihm und seinem Team mit Hilfe von vier einfachen affinen Abbildungen ge- 
lungen, ein realistisches Bild von einem Farnkraut zu erzeugen. Barnsley sagte bei der 
Entdeckung: 


Das Bild war verblüffend, es stimmte in allen Einzelheiten mit dem Original überein. 
Kein Biologe hätte Schwierigkeiten, den Farn zu bestimmen. 
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Das Verfahren hieß Iteriertes Funktionssystem (IFS) und wurde in den Proceedings of 
the Royal Society of London, A 399 (1975) von den Autoren M. Barnsley und S. 
Demko publiziert. 


Barnsley nennt die Methode das Chaosspiel. Gleick erklärt es durch folgenden Ver- 
gleich. Angenommen, man will eine fraktale Küstenlinie nachbilden. Die Küstenlinie 
wird mit Kreide auf den Boden gezeichnet und darauf eine Vielzahl von Reiskörner 
zufällig gestreut. Zählt man nur die Reiskörner, die auf die gezeichneten Linien fal- 
len, so bilden diese bei Fortsetzung des Verfahrens genau den Küstenverlauf ab. Ge- 
naugesehen sind Barnsleys Formen, wie der erwähnte Farn, Attraktoren. 


Das Chaosspiel macht sich die fraktalen Eigenschaften bestimmter Bilder zunutze. 
Diese selbstähnlichen Bilder bestehen wiederum aus verkleinerten Kopien des ganzen 
Bildes. Bestimmt man nun die mathematischen Transformationen, durch die die ver- 
kleinerten Kopien aus dem Ganzen hervorgehen, so ist das Iterierte Funktionssystem 
(IFS) damit eindeutig bestimmt. Mit Hilfe des von. Barnsley gefundenen Collage- 
Theorems kann man das IFS auch von komplizierten Abbildungen bestimmen. 


Auch das umgekehrte Problem ist interessant: Wie findet man zu einem fertigen Bild 
die Gleichungen eines zugehörigen IFS? Barnsley gelang es, dafür einen maschinen- 
geeigneten Algorithmus zu finden und ihn patentieren zu lassen. Mathematische Al- 
gorithmen sind in den USA, im Gegensatz zur Bundesrepublik, patentfähig. Ebenso 
wie das komplizierte Farnblatt auf 4 Abbildungen mit je 6 Parametern zurückgeführt 
werden kann, so kann der - inzwischen patentierte — Algorithmus von Barnsley ein 
beliebiges Bild auf seinen IFS-Code reduzieren. Diese Methode scheint eine der viel- 
versprechendsten Methoden der Datenkompression für Bilder zu sein. 


1.12 Aristid Lindenmayer 


Aristid Lindenmayer war theoretischer Biologe an der Universität von Utrecht. Sein 
Betreben war es, die Entwicklung von Pflanzen mit Hilfe mathematischer Algorith- 


men kennzeichnen zu können. Lindenmayer schreibt in einem 1975 erschienen Auf- 
satz 


Die Entwicklung eines Organismus kann angesehen werden als Ausführung eines 
»Entwicklungsprogramms«, das sich in der befruchteten Eizelle befindet. ... Eine 


zentrale Aufgabe der Entwicklungsbiologie ist es, die zugrundeliegenden Algorithmen 
aus dem Lauf der Entwicklung herzuleiten, 


Besonders beeindruckte ihn das Prinzip der Selbstähnlichkeit, das er bei Mandelbrot 
gefunden hatte. In einem anderen Artikel desselben Jahres schreibt er: 


Bei vielen Wachstumsprozessen von lebenden Organismen, besonders bei Pflanzen, 
sind wiederholte regelmäßige Erscheinungen von gewissen mehrzelligen Strukturen 


u re Bee 
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erkennbar. ... Im Fall eines zusammengesetzten Blattes z.B. haben die Blättchen, die 
Teil eines Blatts in einem späteren Zustand sind, dieselbe Form wie das ganze Blatt in 
einem früheren Zustand. 


Auf der Grundlage der von N. Chomsky geschaffenen Theorie der Grammatiken 
konnte Lindenmayer 1986 sein grundlegendes Werk Mathematical models for cellu- 
lar interaction in development im Journal of Theoretical Biology 18 (1986) veröf- 
fentlichen. P. Prusinkiewz von der Universität Regina gelang es, in Zusammenarbeit 
mit Lindenmayer, die mathematischen Graph-Grammatiken mit Hilfe von Turtle- 
Graphik in Computeralgorithmen umzusetzen. So entstand der bekannte Formalis- 
mus, der nun Lindenmayer- oder kurz L-Systeme genannt wird. 


Die auf der SIGGRAPH 1988 und 1989 gehaltenen Vorträge wurden in den Lecture 
Notes in Biomathematics publiziert. Daraus entstand 1990 der berühmte Band »The 
Algorithmic Beauty of Plants«, der von vielen Leuten als das schönste Buch mit ma- 
thematischen Formeln angesehen wird. Schade, daß Lindenmayer das Erscheinen 
seines Buches nicht mehr erlebt hat. 


en 2 Die logistische Gleichung 


Die logistische Gleichung (logistic map) 
Anıı IX (= X) 


ist ein Spezialfall der 1845 von P. F. Verhulst zur Beschreibung eines Populations- 
wachstums eingeführten Gleichung 


N,+ı = N,(a-bN,) 


Bild 2.1 Iteration der logisti- 
schen Gleichung für r=2.9 


Auf der Suche nach einem deterministischen Zufallszahlen-Generator, wurde die 
Gleichung 1947 von S. M. Ulam und J. von Neumann intensiv studiert. Jedoch zeigte 
sich, daß die mittels der logistischen Gleichung erzeugten Zahlen im Intervall [0;1] 
nicht genügend gleichverteilt waren (vgl. Bild 2.6) 
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Mit dem Artikel »Simple mathematical models with very complicated dynamics« in 
Nature Volume 261, 1976 entdeckte Robert M. May die logistische Gleichung für 
die deterministische Chaostheorie. Er untersuchte die Dynamik der Gleichung für die 
verschiedenen Werte des Parameters r e [0;4]. Das Phänomen der Periodenverdopp- 


lung wurde 1977 von $. Großmann und $. Thomae und 1978 von Mitchell Feigen- 
baum gefunden. 


Die logistische Gleichung stellt keine spezielle quadratische Gleichung dar. Die all- 
gemeine quadratische Gleichung x},; = A+Bx, +Cx} geht durch die Transformation 
x, > kx„+d über in die Form 


X, = (A-d+Bd+Cd?)/k+(B+2Cd)x, +Ckx? 
Dies ist äquivalent zu x,,, =rx,(l-x,) mit 


=2+1;B=0,C=-rn,k=L;d=! 


ja 


Bild 2.2 Iteration der logisti- 
schen Gleichung für r = 3.6 


2.1 Dynamik der logistischen Gleichung 


Fixpunkte einer Gleichung sind definiert durch die Gleichung 
fa)=x 
Ein Fixpunkt heißt stabil oder anziehend, wenn gilt 


| 
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superstabil für 
f@l=0 


und instabil oder abstoßend für 


r@l>1 


Fixpunkte von FFLFLX))) für r= 3.8282 Bild 2.3 Fixpunkte der dritten 
Iterierten 


Für O<r<1 erhält man den stabilen Fixpunkt x=0, für 1<r<3 den stabilen Fix- 
punkt x=1-. Dies bedeutet, daß jede Iteration in diesem Parameterbereich entwe- 
der gegen x=0 oder gegen x = 1-1 konvergiert (vgl. Bild 2.1). Erhöht man den Pa- 


rameter r geringfügig über den Wert 3, so pendelt die Iteration zwischen zwei Werten 
hin und her. Für die Fixpunkte der iterierten Gleichung x = f(f(x)) ergibt sich der 
Ansatz 


%=nr(l-x,) 


A = (1 — x) 
Neben der trivialen Lösung .x, = x, erhält man den Zweierzyklus 
x=44+h)+4Yr?-27-3 


für 3<r<1+,6. Gegenüber der Konvergenz gegen einen Fixpunkt hat sich hier die 
Anzahl der Fixpunkte verdoppelt; man spricht daher von Periodenverdopplung. 
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In ähnlicher Weise kann man die Fixpunkte der dritten und vierten Iterierten be- 
stimmen (in Bild 2.3 als Schnittpunkt mit der Winkelhalbierenden des 1. Quadranten 
zu erkennen). Schreibt man die Parameterwerte, bei denen je eine Periodenverdopp- 
lung auftritt, in Form einer Tabelle an, so erhält man 


Parameterwerte mit Bifurkationen 


1,23 

r2 = 3.449499 
r3 = 3.544090 
r4 = 3.564407 
r5 = 3.568759 
r6 = 3.569692 
r7 = 3.569891 
rg = 3.569934 


Diese Folge scheint sich einem Grenzwert zu nähern. Macht man den Ansatz einer 
geometrischen Folge mit dem Skalenverhalten 


r, =r,-cF* 


so erhält man mittels eines Extrapolationsverfahrens die Werte c=2.6327 und 


F=-H1Tk__ 4.669202 
Yk4+2 TH 


Die letztere Konstante wird nun Feigenbaum-Konstante genannt. Mit Hilfe dieses 
Wertes läßt sich der Grenzwert r,, der Periodenverdoppelungen extrapolieren. Es 


ergibt sich 


& Fry+ T 


= 3.5699456 


Für Parameterwerte größer als r,, beginnt nun — mit Ausnahme der periodischen Fen- 
ster - das chaotische Verhalten der logistischen Gleichung; d.h. der Wertebereich 
wächst stark an und füllt für = 4alle Werte des Intervalls [0;1]. In den periodischen 
Fenstern treten auch Zyklen der Periodenlängen 3,5,6 usw. mit den zugehörigen Pe- 
riodenverdopplungen auf (vgl. Abbildung 2.4). 


Von besonderer Bedeutung ist ein auftretender Dreierzyklus, da nach dem berühm- 
ten Satz von Yorke und Li (1975) die Periode drei chaotisches Verhalten nach sich - 
zieht. Der Satz ist ein Spezialfall des Satzes von Sarkowskii (Siehe Kapitel 19). 
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Feigenbaun-Diagrann der logistischen Gleichung ” % Bild 2.4 Feigenbaum-Diagramm 
9 der logistischen Gleichung 


Die Feigenbaum-Konstante 7 ist universell in dem Sinn, daß sie für alle unimodalen 
Funktionen mit einem quadratischen Maximum (d.h. f”(x,)#0) gilt. Beispiele für 
solche Funktionen sind 


f(x) = rsin(nx) f(x)=ryx(1-x) 
fd=rdi-2? —— Aa)=rx2siniez) 


Auch bei vielen physikalischen und chemischen Versuchen wie bei der Josephson- 
Schaltung und beim Brüsselator, tritt die Feigenbaum-Konstante auf. Einen guten 
Überblick über das Auftreten der Feigenbaum-Konstanten in den Naturwissenschaf- 
ten liefert das Vorwort von P. Cvitanovic im Sammelband [05]. 


2.3 Das Feigenbaum-Diagramm 


Das dynamische Verhalten der Funktion kann mittels des Feigenbaum-Diagramms 
veranschaulicht werden. Dabei werden die Werte des Parameters r auf der waage- 
rechten Achse, die Funktionswerte auf der senkrechten Achse angetragen. Die Peri- 


odenverdopplung zeigt sich an der »Gabelung« der Funktionswerte, auch Feigen- 
baum- oder Gabel-Bifurkation genannt. 


Mit dem Quick Basic-Programm feigenb.bas kann das Feigenbaum-Diagramm der 
logistischen Gleichung erstellt werden. 
'feigenb.bas 


SCREEN 12: CLS 
WINDOW (2.9, 0)-(4, 1) 
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m LS a a a a ar a a ee 
LINE (2.9, 20) EDIET EB 


FOR r = 2.9 TO 4 STEP 1.1 / 640 
x = RND 
FOR i = 1 TO 700 
x an, Ko 8 (1-2) 
IF i > 400 THEN PSET (r, x), 9 
NEXT i 
NEXT r 
LOCATE 28, 2: PRINT "Feigenbaum-Diagramm der logistischen Gleichung” 
e$ = INPUT$(1): SCREEN 0 
END 


EIREREN # Bild 2.5 Ausschnitt aus dem 
Ausschnitt für 3.8 < r < 3.9 Bifurkations-Diagramm mit 
Dreierzyklus-Fenster 


2.4 Exakte Lösung im Chaos-Fall 


Interessanterweise läßt sich im Fall r=4 eine exakte Lösung der logistischen Glei- 
chung angeben. Wie man durch Einsetzen verifizieren kann, gilt diese Lösung 


1 ag 
x, ==-cos(2” arccos(l— 2x,)) 
272 
für alle Anfangswerte 
u! 


120 
x TEL DR 23 
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2.5 Die invariante Dichte 


Wie in der Statistik kann für die viele chaotische Funktionen eine Dichtefunktion 
berechnet werden. Das Differential 


P(x)dx =d& 


stellt die Wahrscheinlichkeit dar, Funktionswerte im Intervall [x,x+dx]anzutreffen. 
Für die Substitution 


x=sin E55 
folgt durch Umkehrung 


2 
Ei= —arcsin.Jx 


Einsetzen ergibt die gesuchte Dichtefunktion 


ee 
I RRTERS 


Bild 2.6 Histogramm der logisti- 
schen Funktion für r=3.8 


Es läßt sich auch eine geschlossene Formel für die Dichtefunktion angegeben 


P()=lim1Y5(x-x,) 
a m) 
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wobei ö die berühmte Diracsche Deltafunktion ist. Diese Definition ist aber für prak- 
tische Zwecke weniger geeignet. Mit dem Turbo C-Programm histogr.c erhält man 
das Histogramm der logistischen Kurve. 


/* histogr.c */ 


#Hinclude <stdio.h> 
{Finclude <graphics.h> 
#Hinclude <stdlib.h> 
{include <math.h> 
#Hinclude <conio.h> 


const double pi = 3.141529653; 
const int n = 640; 

const double r = 3.8; 

static int h[640]; 


void main(void) 

| 

int gdriver,gmode; 
int max,i; 

double x=pi/4.; 


detectgraph(ägdriver,&gmode); 
initgraph(&gdriver,&gmode,"\\be\\bgi"); 
rectangle(0,0,639,479); 

setcolor(12); 


hL(int) floor(n*x)]++; 
for (i=0; i<20000; i++) 

{ 

x =IirXX%(1.-X); 

hLCint) floor(n*x)]++; 

} 
for (i=0,max=0; i<n; it+) 

if (hLi]J>max) max= hli]; 

moveto(1,480-(int)(478./max*hL[L0J)); 
for (i=1; i<n; i+) 

lineto(i+1,480-(int) (478. /max*h[Li])); 
moveto(10,10);outtext("Histogramm für r= 3.8"); 
getch(); 
closegraph(); 
} 


Wie man leicht nachprüft, erfüllt diese Funktion die in der Statistik geforderte Nor- 
mierungsbedingung 

N 

[p (x)dx =1 

0 
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vermöge des Integrals 


1 


AT 
—Jarcsin2x-1)] =1 


ae x 


Nach Lauwerier (One dimensional iterative maps im Sammelband [13]) läßt sich 
damit der (maximale) Ljapunow-Exponent A berechnen 


= Jin 


Für die logistische Funktion folgt mit f’(x) = 4(1- 2x) 


0 


P(x)dx 


I 22) „ 2 


Yx(- x) 


Histogramn für r= 4 


Bild 2.7 Histogramm der logisti- 
schen Funktion für r=4 


2.6 Berechnung des Ljapunow-Exponenten 


Der Ljapunow-Exponent ist ein Maß für den Abstand zweier benachbarter Bahnen 


xD mit y„=x,+öx, 


Für y, folgt nach dem Mittelwertsatz der Differentialrechnung 


Yn+ı = FOn)= Fa, +5x,) = f(x,)+f’x,)öx, 
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Der Vergleich mit 
In+1 ” Anıl +öX,. = Fan) + Rz 
liefert die Gleichung 


ÖX,4 = HÖR, 

mit a =|f’(x„)|- 

Durch Iteration erhält man 
öx, = u”8x, 


Logistische Gleichung 


Bild 2.8 Ljapunow-Exponent im 


Intervall [2.8; 4] 
Der Ansatz eines exponentiellen Wachstums 
öx, = e"öx, = f H,öx, liefert 
i=0 
n-1 n-1 n-1 
Ine?")= An = Il " | ui H)= Zulrc: ) 


Der (maximale) Ljapunow-Exponent ergibt sich damit aus dem Grenzwert 
A=limt Sanls x) 
er 


Diese Form ist jedoch für numerische Zwecke nicht besonders geeignet. 
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TE Tr 2 a TE 2 4 


Für x,,, = f(x,) heißt 


df 
In+ı = FR 


"In 
x=Xx 


n 


die Variationsgleichung. Der (maximale) Ljapunow-Exponent ergibt sich damit für 
einen Anfangswert y, #0 zu 


1 
A= lim —In 


non 


In 
Yo 


Bei numerischen Rechnungen wird man bei diesem Term etwa n in der Größenord- 
nung von einigen Tausend wählen. Da die Variationsgleichung die Form eines Pro- 
duktes hat, besteht hier die Gefahr eines numerischen Überlaufs, dem man manchmal 
durch logarithmische Berechnung entgehen kann. 


Der Ljapunow-Exponent A charakterisiert das Verhalten einer Funktion durch sein . 
Vorzeichen. Für periodische Funktionen gilt A<0, für quasiperiodische A=0 und 
für chaotische Funktionen A>0. Die Umkehrung gilt nicht in jedem Fall: So hat auch 


die Funktion f(x)=e®* (a>0) einen positiven Ljapunow-Exponenten ohne chao- 
tisch zu sein. 


Das Ljapunow-Diagramm kann mit Hilfe des Turbo Pascal-Programms 1jap.pas ge- 
fertigt werden. 


program 1jap; (exakter Ljapunow-Exponent) 


[$N+} 
uses crt,graph; 


const T = 5000; 

var j : integer; 
X,x1,y,lambda,r : double; 
Graphdriver,‚Graphmode : integer; 
first : boolean; 


begin 

GraphDriver := Detect; 

Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'): 
SetgraphMode(Graphmode) ; 

cleardevice; 

rectangle(0,0,639,479); { VGA-Auflösung } 

line(0,120,639,120); 

setcolor(14); 

MoveTo(10,10); 

QutText( 'Ljapunow-Exponent der logistischen Gleichung 2.9r<4'); 


r := 2,9; first := true; 
while r<= 4.0 do 
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begin 
xl := 0.61; y := 0; 
for j:=1 to T do 
begin 
Xıymıxl; 
xl := r&%x#(1-x); 
y := y+In(abs(r*(1-2*x))) 
end; 
lambda := y/T; 
if first then 
moveto(round(640*r-1856) ,round(120-120*1ambda) ) 
else 
lineto(round(640*r-1856) ‚round(120-120*]ambda)); 
first := false; 
r := r+0.00171875 
end; 
repeat until keypressed; 
closegraph; 
TextMode(lastmode); 
end. 


2.6 Numerische Berechnung des Ljapunow-Exponenten 


Eine. numerisch leichter anwendbare Methode wurde von Brandstäter u.a. 
(Brandstäter A./Swift J./Swinney H.L:/Wolf A.: A strange attractor in a Couette- 
Taylor-Experiment, IUTAM 1984, Elsevier North Holland, 1984) bzw. von Benettin 
u.a. (Benettin G./Giorgilli A./Strelcyn J.M.: Meccanica, März (1980), 21) angegeben. 


Numerische Berechnung des Ljapunow-Exponents 


Bild 2.9 Ljapunow-Diagramm 
mit numerisch berechneten 
Exponenten. 
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Man berechnet zwei benachbarte Bahnen x; und y,;, wobei die Bahn y; mit dem An- 
fangswert yy)=x,+& startet. Der Ljapunow-Exponent X ist dann für große n nähe- 
rungsweise gegeben durch 


1X bb; -x;| 
«FE vi -x,| 


Das Quick Basic-Programm brandst.bas berechnet numerisch den (maximalen) 
Ljapunow-Exponenten. 


‘brandst.bas 
"Berechnung des Ljapunow-Exponenten nach Brandstäter 


CONST eps = .00l: r = 4! 
CONST T = 3000 

DIM lambda, d, x, y AS DOUBLE 
DIM i AS INTEGER 


x = .6l:lambda = 0 
FOR i = 1 TO 300 
Ken Ko (1 2x) 


NEXT i 
FOR i=1T0T 

y=x+eps 

EEPEEELTOESD) 

yi=l neX2y'%*" (10 :y)) 

d=(y-x)/eps 

IF d <> 0 THEN lambda = lambda + LOG(ABS(d)) 
NEXT i 


lambda = lambda / T 


PRINT USING "Max.Ljapunow-Exponent = jF.{HHF"; Tambda 
END 


2.7 Das Entropiemaß 


Ein weiteres Maß für das Verhalten einer Funktion ist die aus der Physik bekannte 
Entropie 


S= N, ldp; 
i=] 


wobei p; die Wahrscheinlichkeit ist, mit der der thermodynamische Zustand 


i angenommen wird; Id stellt hier den Logarithmus zur Basis 2 dar. Für p;=0 wählt 
man den Grenzwert 


lim pldp=0 
p>» 
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Entrople der logistischen Gleichung 
Maximale Entropie = 4.68517 


Bild 2.10 Entropie der logistischen 
Gleichung 


Diese Wahrscheinlichkeit p; wird ermittelt, indem man den Wertebereich der Funkti- 


on in n Teilintervalle teilt und zählt, wie oft der Funktionswert in den entsprechenden 
Bereich fällt. 


Das Maximum der Entropie erhält man im Fall der Gleichverteilung, d.h. wenn alle 
Werte des Wertebereichs mit gleicher Wahrscheinlichkeit p; == angenommen wer- 
den. Für das Entropie-Maximum ergibt sich 


SR 
Sm =- Id =1dn 


Das Bild 2.10 kann mit dem Quick Basic-Programm entropy.bas erstellt werden. 
'entropy.bas 


CONST n = 100 

DIM p, r, s, x AS DOUBLE 
DIM f, i, z AS INTEGER 

DIM box(0 TO 99) AS INTEGER 


SCREEN 12: CLS 

WINDOW (2.9, -.5)-(4, 6.8) 
LINE (2.9, -.5)-(4, 6.8), „ B 
LINE (2.9, 0)-(4, 0) 

COLOR (12) 

f=-1 


FOR r = 2.9 TO 4 STEP 1.2 / 640 
FORz=-0T0n-1 
box(z) = 0 
NEXT z 


44 2 Die Logistische Gleichung 


Te 


x= .6l 
FOR i = 1 TO 250: "Transienten 
a RR 6 IR 2 
NEXT i 
FOR i = 1 TO 500 
Ken EX ll‘) 
z = INT(x * n) 
box(z) = box(z) + 1 
NEXT i 
s=0 
FOR z=0T0n-]1 
p = box(z) / 500 
IF p> 0 THEN s = s + p * LOG(p) / LOG(2) 
NEXT z 
IF f = 1 THEN PRESET (r, -s) ELSE LINE -(r, -s) 
f=0 
NEXT r 
LOCATE 2, 2: PRINT "Entropie der logistischen Gleichung" 
e$ = INPUT$(1): SCREEN 0 
END 


2.8 Das Fourier-Spektrum 


Ein weiteres Hilfsmittel zur Charakterisierung einer Funktion ist die Fourier-Analyse. 
Dabei wird die Funktion als Linearkombination von harmonischen Funktion darge- 
stellt. Daher läßt sich eine etwa auftretende Periodenverdopplung direkt aus einer 
graphischen Darstellung ersehen. 


Die diskrete Fourier-Transformation bestimmt eine Funktion als Linearkombination 
von Sinus- und Cosinus-Kurven 


IE SE 
= Ir exp(- j2rtk —) 
N n 
dabei ist die Anzahl der Funktionswerte n meist eine Zweierpotenz. Der Realteil lie- 
fert die Cosinus-Entwicklung 


n—] F 
a, = )>” cos(2rk = 
i=0 % 
Entsprechend ergibt der Imaginärteil die Sinus-Entwicklung 
IX i 
by =-— I,x; sin(2rk-) 
Ey 2 n 
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Bild 2.11 Power-Spektrum für 
r = 3.569 


Der quadratische Mittelwert 


Pr Ja; +bk 


heißt das Leistungs- oder Power-Spektrum. 


Das Bild 2.11 zeigt die aufgetretenen Periodenverdopplungen der logistischen Funk- 
tion bei r=3.569. Bild 2.12 demonstriert eine Vielzahl von Perioden beim chaoti- 
schen Verhalten, die hier bei r=3.85 auftritt. 


Power-Spektrum r=3.95 


Bild 2.12 Power-Spektrum für 
r=3.85 
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Das Power-Spektrum der logistischen Gleichung kann mit Hilfe das Turbo C- 
Programms fourier.c dargestellt werden. 


/* fourier.c */ 


#include <stdio.h> 
#include <graphics.h> 
#include <stdlib.h> 
#include <math.h> 
#include <conio.h> 


const double PI = 3.14152965; 

const double r = 3.569; 

const int NN = 512; 

double x[512],a[512],b[512],p[512]; 


void main(void) 

{ 

int i,k,N,gdriver,gmode; 
double pmax,sum,mean; 
detectgraph(&gdriver,&gmode); | 
initgraph(&gdriver,&gmode,"\\bc\\bgi"); | 
rectangle(0,0,639,479); 

setcolor(12); 


N = NN/2-1; 
x[0] = 0.61; 
for (i=1,mean=0; i<=NN; i+) 
ö 
xLi] = r*%xLi-1J*C1.-x[i-1)); 
mean += x[i]; k; 
) 3 
mean *= 1./NN; 
for (i=0; i<=NN; i++) x[i] -= mean; 
for (i=0; j<=N; it) 
{ 
for (k=0,sum=0; k<2*N; k++) 
sum += x[k]*cos((double)PI*i*k/N); 
ali] = sum/N; 
) 
for (i=0; i<N; i++) 
{ 
for (k=0,sum=0; k<2*N; k++) 
sum += x[kJ*sin((double)PI*i*k/N); 
b[i] = sum/N; 
} 
for (i=0,pmax=0; i<=N; i++) 
{ 
pli] = sqrt(aliJ*alil+bLiJ*bLi)); 
if (pLi]>pmax) pmax = pli]; 
} 


for (i=1; i<N; i++) | 
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[ 
pLi] *= 1./pmax; 
if (i==1) moveto((int)(i*640/N) ‚440-(int)(800*pLi])); 
else 
lineto((int)(i*640./N) ‚440-(int)(800.*pLi])); 
} 
moveto(10,10);outtext("Power-Spektrum r=3.569"); 
getch(); 
closegraph(); 
} 


2.9 Die Korrelationsfunktion- 


In der Statistik dient die Korrelation als Maß für die lineare Abhängigkeit zweier 
Meßgrößen. Wendet man die Korrelationsrechnung auf Werte einer Größe oder 
Funktion untereinander an, so spricht man von Autokorrelation. Die Autokor- 
relationsfunktion ist definiert durch 


1X < = 
C,.(k)= lim — Iulx; - xi)(& - &) 


EETE, u 


und hängt vom Anfangswert x, ab. Für die logistische Gleichung gilt x —: (für fast 


alle Anfangswerte), wie man es für r=4 wegen der Symmetrie der Dichtefunktion 
erwartet. 


Kennzeichen einer chaotischen Funktion ist das Verschwinden der Autokorrelation 
für k>0. Wie sich theoretisch zeigen läßt, gilt 


1 > 

= fürk=0 
CE (KM=T8 
= 0 sonst 


Die numerische Berechnung der Autokorrelation kann mittels des Turbo-Pascal- 
Programms autocorr.pas erfolgen. 


program autocorr; I Auto-Korrelation } 
[$N+] 


const T=10000; 

var corr,mean,sum : double; 
1.j.K: integer; 
x : array[0..T] of real; 
c : array[0..9] of real; 


begin 
x[L0] := (sqrt(5)-1)/2; 
sum := x[0]; 
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for i:=1 to T do 
begin 
xLi] := 4*%xL[i-1J*01-x[i-1)); 
sum := sum + x[i] 
end; 
mean := sum/(T+1); 
for i:=0 to 9 do 


begin 
corr := 0; 
k:=T -10; 


for j:=0 to k do 
corr := corr+(x[Lj]-mean)*(x[Lj+i]-mean); 
. clil := corr/k; 
end; 
writeln( 'Koeffizienten der Korrelationsfunktion'); 
for i:=0 to 9 do writeln(i:6,c[li]:10:4); 
end. 


Das Programm liefert die Werte 


C(k) 


k 

0 0.1241 
1 -0.0008 
2 -0.0006 
3 0.0004 
4 -0.0001 
5 0.0018 
6 -0.0001 
7 0.0014 


2.10 Aufgaben 


Übung 2.10.1 

Zeigen Sie, daß die logistische Gleichung f(x) = 4x(1-x) durch die Transformation 
x>sin?x 

in die Bernoulli-Gleichung (englisch Bernoulli shift) 
f(x)=2x mod 1 


übergeht. Zeigen Sie, daß der Startwert x, =+ einen Zyklus der Periode 3 liefert! 


Übung 2.10.2 


Bestimmen Sie numerisch den Ljapunow-Exponenten für den Zufallszahlen- 
Generator x,,; =(x+n)” mod 1 zum Startwert x, = : 


Übung 2.10.3 


Bestimmen Sie numerisch den Ljapunow-Exponenten für den Zufallszahlen- 


x +7 
En Ber = 
Generator x, = mod1 zum Startwert 9, =7- 


Übung 2.10.4 


Erzeugen Sie das Bifurkations- und Ljapunow-Diagramm der Sinus-Gleichung 
(englisch sine map) x et rsinnex . (Programme sinusl1,sinus2) 


Übung 2.10.5 
Betrachtet werde die Zeltdach-Funktion (englisch tent map) 
ax für0<x< - 
= 


2a(l- x) für 3< x<1 


mit dem Parameter O<a<]l. 


a) Bestimmen Sie den max. Ljapunow-Exponenten (Ergebnis A=In(2a)). 

b) Finden Sie einen Zyklus der Periode 3. 

c) Erstellen Sie das Bifurkations-Diagramm (Programm tent.bas). 

d) Zeigen Sie, daß die logistische Gleichung für r=4 bei der Transformation 


REN 
x —aresin, x 


in die Zeltdachfunktion übergeht. 


Übung 2.10.6 
Erstellen Sie ein Ljapunow-Diagramm (Programm ljapsin.bas) für die Gleichung 


x. = bsin?(x„+r);b=25 


wobei der Parameter r abwechselnd die Werte A und B haben soll. A,B durchlaufen 
dabei das Intervall |0;2r |. Der numerisch berechnete Ljapunow-Exponent der Itera- 
tion soll an den Koordinaten (AlB)des Bildschirms geplottet werden. Dies liefert 
Farbtafel 2. 


3 Kreisgleichung (Circle Map) 


Die von V. Arnold angegebene Kreisgleichung ist gegeben durch | 
| 
Xp X, +2n Q+Kcos(?2nx,) mod 2n | 


(Small Denominators for Mappings of the Circumference Into Itself, AMS Transl. | 
‚ Series 2, 46 (1965)). Sie kann umgeformt werden zu 


k | 

KXnıı = X +24, cos(2nx,) mod 1 | 
Die Kreisgleichung kann als Gleichung eines periodisch angeregten Oszillators ver- 
standen werden. Der Parameter Q stellt das ungestörte Frequenzverhältnis, der Pa- 
rameter K die Kopplungskonstante der nichtlinearen Störung dar. Das Bild 3.1 ent- 
steht durch Plotten von 5000 Funktionswerten in Abhängigkeit von dem Parameter 


K mit 0O<K<1. Dabei werden die Funktionswerte nach oben angetragen, die K- | 
Achse liegt waagrecht. 


Bild 3.1 Bifurkations-Diagramm 
für0O<K<1 


Die Abbildung kann mit dem Quick Basic-Programm circ.bas erstellt werden. 


3.1 Fixpunkte 


'circ.bas 
'"Bifurkationsdiagramm der Circle Map 


CONST pi = 3.141592653}:twopi = 2 * pi 
CONST omega = .45 
DIM i AS INTEGER 

DIM k, x, x1 AS SINGLE 

DIM h(480) 

DIM col(1 TO 15) AS INTEGER 


SCREEN 12: CLS 
WINDOW (.2, 0)-(2, 479) 


FOR i = 1 TO 14: READ col(i): NEXT i 
FOR k = .2 TO 2 STEP 1.8 / 640 
FOR i = 0 TO 479: h(i) = 0: NEXT i 
x=.4 
FOR i = 0 TO 300 
xl = x + omega + k / twopi * COS(twopi * x) 
x = xl - INT(x1) 
IF i > 100 THEN h(x * 480) 
NEXT i 
FOR i = 0 TO 5000 
xl = x + omega + k / twopi * COS(twopi * x) 
x =x1 - INT(x1) 
z = INT(480 * x) 
h(z) = h(z) + 1 
NEXT i 
FOR i = 0 TO 479 
IF h(i) > 15 THEN h(i) = 15 
IF h(i) > 0 THEN PSET (k, i), col(h(i)) 
NEXT i & 
NEXT k 
e$ = INPUT$(1): SCREEN 0 
END 
DATA 15,7,8,11,.3,10,2,9,1,14,6,12,4,13,5 


1 


3.1 Fixpunkte 


Aus der Fixpunktgleichung x,; =, erhält man die Bedingung 
K 
0=Q+— cos(?r x) 
27 


_nQ 
K 


Für die Stabilität der Fixpunkte ergibt sich aus der Ableitung die Bedingung 


1 
oder x=<—arccos 
2n 


1 =K sin(2r)) <1 


y) 3 Kreisgleichung (Circle Map) 


bzw. -1<1-Ksin(?2n x)<1 


Die linke Ungleichung kennzeichnet hier die Periodenverdopplung. Die rechte Unglei- 
chung bedeutet die Tangenten-Bifurkation, die für kleine K ein Übergang zur Quasi- 
Periodizität ist. Für kleine K ist dies sicher erfüllt. Löst man die obige Gleichung für 
die Fixpunkte nach K auf, so erhält man die Hyperbel 


K=4+(270)2 


Phasendiagramn der Circle Map 


Bild 3.2 2 superstabile Bahnen 
für K=3.3,02=0 


3.2 Der Fall K nahe Null 


Setzt man für K=0 und Q= 2 so vereinfacht sich die Kreisgleichung zu 
& 24 
Intl nt, mod I 


oder beim Startwert x, nach g-maliger Iteration 


X, =%tpmodl=x, 


d.h. man erhält einen Zyklus der Länge q unabhängig vom Startwert x,. Für irratio- 
nales Q schließt sich der Zyklus nicht exakt und m 


an erhält ein quasiperiodisches 
Verhalten. Für X #0 definiert man die Windungszahl 
W= lim 


n>» n 


i 
i 
N 
{ 
I 


3.2 Der Fall K nahe Null 53 


dabei wird auf die Restbildung mod 1 verzichtet. Tritt wegen der Periodizität keine 
Änderung der Windungszahl auf, so spricht man von Phasensperre (englisch phase 
locking). Das Bild 3.2 zeigt die Phasenabbildung mit zwei stabilen Zyklen. 


Trägt man in einem Diagramm die Windungszahl W gegen Q auf , so erhält man eine 
monoton steigende Kurve mit einigen Plateaus, die Teufelstreppe (englisch devil’s 
staircase) genannt wird (Bild 3.3). 


Teufelstreppe nittels Windungszahl 


Bild 3.3 Teufelstreppe 


Das Quick Basic-Programm devil.bas erstellt die Graphik zur Teufelstreppe. 


'devil.bas 
'Teufelstreppe der Circle Map e 


CONST PI = 3.141592653if: p2 = 2 * PI 
CONST K = 1 

DIM x, w AS SINGLE 

DIM i AS INTEGER 


SCREEN 12: CLS 

WINDOW (0, 0)-(1, 1) 
LINEKOO)- SAD ER 
PRESET (0, 0), 12 


FOR omega = 0 TO 1 STEP .0015625 
x=PI/4 
FOR i = 1 TO 4000 
x=x + omega + K-* COS(p2 * x) / p2 
NEXT i 
w= (x - x0) / 4000! 
LINE -Comega, w), 12 
NEXT omega 
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LOCATE 2, 2: PRINT "Teufelstreppe mittels Windungszahl" 
e$ = INPUT$(1): SCREEN O0 
END 


Die Ableitung der Funktion ist für 0O< K<1 stets positiv 
f(x) =1-Ksin(2n x) 


Dies bedeutet, daß alle Fixpunkte für diese K-Werte stabil sind. Plottet man in einem 
Koordinatensystem für jede rationalen Windingszahl O<K<1 die entsprechenden 
Punkte gegen Q auf, so ergeben sich dreiecksförmige, spitze Gebiete, die Arnold- 
Zungen genannt werden, im Englischen Arnold tongues. 


Die Arnold-Zungen können mit den Turbo Pascal-Programm tongue.pas erzeugt 
werden. Um die Graphik nicht zu überladen, wurde nur eine begrenzte Anzahl von 
rationalen Zahlen gewählt und zwar die Brüche 4, wobei der Zähler k durch 2 teil- 
begin 


bar ist. 
| Bild 3.4 Arnold-Zungen 
GraphDriver := Detect; 


Initgraph(GraphDriver ‚GraphMode, '\tp\bgi '); 
SetgraphMode(Graphmode) ; 


program devil; 
uses crt,graph; 


const p2 = 2*pi; 

var i,c,z : integer; 
K,x,omega,w : real; 

Graphdriver,Graphmode: integer; 
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cleardevice; 


omega := 0; 
while omega<= 0.5 do 
begin 
K := 0; z:=0; 
while K<=1.0 do 
begin 
x := 0.1; 
for i:=1 to 30 do 
x :=x + omega - K*sin(p2*x)/p2; 
w.:= (x-x0)/30; 
if round(60*w) mod 2 <>0 then c:= 1 else c:=15; 
begin 
putpixe] (round(639*omega) ‚479-round(479*K),c); 
putpixe] (639-round(639*omega) ‚479-round(479*K) ,c); 
K := K + 0.00208333 
end 
end; 
omega := omega +0.0015625 
end; 
repeat until keypressed; 
closegraph; 
TextMode(lastmode); 
end. 


| 
| 


L japunow-Diagramn K=8.9 


Bild 3.5 Ljapunow-Diagramm 
für K=0.9 als Funktion von 
-I<ast 


Für infinitesimal kleines, positives K gilt näherungsweise 


= Zinlfc,) = L-Ksin(2r x;) 
i i 
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Dies bedeutet, daß der Ljapunow-Exponent negativ bzw. Null ist. Dies zeigt erneut, 
daß es sich hier um periodische bzw. quasiperiodische Bahnen handelt (vgl. Bild 3.5) 


Der Ljapunow-Exponent der Kreisgleichung kann numerisch nach Brandstäter be- 
rechnet werden. Dies führt das Turbo C-Programm 1jap.c durch. 


I 1Jjap-c *. 
/* Numerische Berechnung des Ljapunow-Exponenten */ 


#include <stdio.h> 
#include <math.h> 
#include <graphics.h> 
#include <conio.h> 


typedef int BOOL; 

const double eps = 0.015; 

const double K = 0.9; 

const double twopi = 6.283185307 ; 
const int T = 5000; 


void main(void) 

[ 

int i1,P,9; 

BOOL first = 1; 

double lambda,omega,x,y; 
int gdriver ,gmode; 

gdriver = 9; gmode = VGAHI; 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 
line(0,96,639,96); 
setcolor(14); 


for (omega=-0.5; omega<=0.5; omega+=0.0015625) 
{ 
x = (sqrt(5.)-1.)*0.5; lambda = 0; 
for (i=1; i<=400; i++) 
x += omega+K*cos(twopi*x)/twopi; 
y=xteps; 
for (i=1; i<=T; i+) 
{ 
x += omega+K*cos(twopi*x)/twopi; 
y += omega+K*cos(twopi*y)/twopi; 
if (x!=y) lambda +=log(fabs((y-x)/eps)); 
y=x+teps; 
J 
lambda *= 1,/T; 
p = 320+(int) floor(640.*omega); 
q = (int) floor(48.*(2.-1ambda)); 
if (first) moveto(p,g); else lineto(p,g); 
first = 0; 
} 
moveto(5,5);outtext("Ljapunow-Diagramm K=0.9"); 
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do {} while(!(kbhit())); 
closegraph(); 

return; 

} 


3,3 Der Fall K=1 


Im Fall K=1 kann die Ableitung 
f’@)=1-Ksin(r x) 


verschwinden, was superstabile Fixpunkte bedeutet (vgl. auch Bild 3.2). Im Fall einer 
Periode 1, lassen sich die Positionen der Gabel-Bifurkationen angeben; sie liegen auf 
der Kurve 


K=y1+00.0)2 


rm ri 


Bild 3.6 Ljapunow-Diagramm 
für K=1.0 als Funktion von 
-I<sast 


3.4 Der Fall K>1 
Auch im Fall K > 1 kann es zu superstabilen Fixpunkten kommen, falls die Gleichung 


f’x)=1-Ksin(2nx) = 0 


erfüllt ist, andernfalls kommt es zu chaotischem Verhalten. Der Übergang läßt sich 
an Hand des Ljapunow-Diagramms betrachten (Bild 3.7). Bei K=2.7 zeigt sich, daß 
für ungefähr |QJ> 0.45 der Ljapunow-Exponent positiv wird und somit Chaos ein- 
tritt. 


Bild 3.7 Ljapunow-Diagramm 
für K=2.7 als Funktion von 


Dieses chaotische Verhalten zeigt sich auch im Bifurkations-Diagramm Bild 3.8 für 
festes K=2.7 und -3 <Q< «. Es kann mit dem Turbo C-Programm circbif.c erstellt 
werden. 


I>2circbif.c */ 
/* Bifurkations-Diagramm der Circle Map for -0.5<0<0.5 */ 


#include <stdio.h> 
#include <math.h> 
#include <graphics.h> 
#include <conio.h> 


const double K = 2.7; 
const double twopi = 6.283185307 ; 


void main(void) 

{ 

int i1,P,9; 

float omega,x; 

int gdriver,gmode; 

gdriver = 9; gmode = VGAHI; 
initgraph(&gdriver,&qmode," "); 
rectangle(0,0,639,479); . 
setcolor(14); 


for (omega=-0.5; omega<=0.5; omega+=0.0015625) 
| 
x = 0.3; 
for (i=1; i<=1200; i++) 
{ 
x += omega+K*cos(twopi*x)/twopi; 
x -= floor(x); 


sg & 3 Kreisgleichung (Circle Map) # N 
0000000 nn 
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p = 320+(int)(floor(640.*omega)); 
q = 480-(int)(floor(480.*x)); 
if (i>1000) putpixel(p,q,9); 
} 
J 
do {} while(!(kbhit())); 
closegraph(); 
return; 
} 


Färbt man in einem N-K-Diagramm jeden Punkt gemäß dem Wert des Ljapunow- 
Exponenten, so erhält man Farbtafel 1 (siehe Farbtafel-Teil des Buchs). Hierbei wur- 
de folgende Färbung gewählt 


x Farbe 
<-2 grün 
2<A<O blau 

\=0 gelb 
0<1r<1 rot 

%>1 dunkelrosa 


Sehr schön sind die Arnold-Zungen zu sehen, die in das quasiperiodische Gebiet hin- 
einragen. 


Bild 3.8 Bifurkations-Diagramm 
für-1<sos} 


4 Zweidimensionale 
logistische Gleichung 


Die logistische Gleichung f(x)=rx(l-x) kann auf verschiedene Arten auf zwei Di- 
mensionen verallgemeinert werden. Dies ist in sofern interessant, da manches chaoti- 


sche Verhalten, z.B. Hopf-Bifurkationen, nicht bei einem eindimensionalen System 
auftreten kann. 


Bild 4.1 Bildung einer Hopf- 
Bifurkation 


4.1 Gekoppelte einparametrige Gleichung 
Eine erste Verallgemeinerung ist gegeben durch 

X 7 l-x,)+(r-Dy, 

In+ı = TYn USYNANE )x, 


Dabei ist jede Gleichung über den Bifurkationsparameter r mit der anderen gekop- 
pelt. Plottet man das Phasendiagramm des Systems, so erhält man für r = 1.667 ellipti- 
sche Bahnen, für größer werdende Parameterwerte bis r=1.8 eine geschlossene Kur- 
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ve, die für r=1815 in drei Kurvenstücke und für r=1.8233 in Einzelpunkte zerfällt. 
Für r = 1.8252 stellt sich eine Hopf-Bifurkation ein. 


Das Phasendiagramm kann mit dem Quick Basic-Programm Iogist2.bas erstellt wer- 
den. 


"Jogist2.bas 


CONST r = 1.6667 
DIM x, x1, y AS DOUBLE 


SCREEN 12: CLS 
WINDOW (.75, .75)-(.85, .85) 


FOR j=0T06 

x=j/TI:y=xX 

FOR i = 1 TO 2000 
xl KR ATOENIEF RE )EAZN 
y Hy KEIN 
x=xl 
PSET (X. y),eL #25 

NEXT i 

NEXT j 

LOCATE 2, 2: PRINT "Phasenplot a=1.6667" 

e$ = INPUT$(1): SCREEN 0 

END 


Phasenplot a=1.8252 


Bild 4.2 Hopf-Bifurkation für 
r=1.8252 
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4.2 Gekoppelte, zweiparametrige Gleichung 


Eine zweite Verallgemeinerung erhält man, wenn man einen zweiten Parameter gals 
Kopplungskonstante einführt. 


ur (lexri)te(y, X,) 

Yn+l = Tyn (i=y,)+€ (x; =) 
Dieses System zeigt außer periodischen, quasiperiodischen und chaotischen Verhalten 
auch Hyperchaos. Von Hyperchaos spricht man, wenn der maximale eindimensiona- 


le Ljapunow-Exponent A"und der entsprechende zweidimensionale A? positiv sind, 
Dies ist der Fall für r=36 und &=0.06 (siehe Bild 4.3). 


Phasenplot r=3.65, eps=8.86 


Bild 4.3 Phasen-Diagramm 
(Hyperchaos) für r=3.6 und 
e=0.06 


Faßt man die rechten Seiten als Funktionen von x, y auf 


S&y)=rll-x)+e(y-x) 
8(,y)=n(l-y)+e(x-y) 


so liefert die Linearisierung das System 


n+ 2 U, + n 
ox ı=X, dy Y=), 

8 ZAISER 

n+l ox x=X, 4 dy y=y, ? 


Diese läßt sich formal schreiben als Produkt mit der Jacobi-Matrix 


| 
| 
| 
| 
| 
| 
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RT 
_|9x dy 
170 % 
ox 0y 


Einsetzen der Funktionen f und g liefert die Variationsgleichung 
Pr+ = r(l=2x)-E)p, +&q, 
An+ı =Ep)n + (r(l-2x)- €), 

Ist (u,v) eine Lösung der Variationsgleichung, so gilt 
un] = (r(l-2x)-E)u, +tev, 


vn, ZEu, + (r(l-2x)-E)v, 


Den eindimensionalen Ljapunow-Exponenten A erhält man damit aus 


v„|) 


Hier wurde für den Vektor (u,v) die Betragsnorm verwendet, prinzipiell läßt sich jede 
Vektornorm |l.]| anwenden. Zur Berechnung des zweidimensionalen Ljapunow- 
Exponenten wird das Graßmann-Produkt der Vektoren (p,q) und (u,v) 


1 
x® = lim —Inl|u,|+ 
n-»N 


w=pv-qu 


gebildet. Einsetzen der obigen ie liefert 


a ee 
Wn+ = dx x=x, Pn + dy yay, In! y=y, 129) 
98 f Pd 
ie PER Da PER ve FERR Pol 
und nach rs 
& = Bu 
Ynr N dglxex, aylm Aylr=. xl," 


Dabei gilt für den Anfangswert 
wo = PoVo Er gollo 
Einsetzen der Ableitungen liefert schließlich die gesuchte Iteration 


wu = (rd -2x)(1-2y)-2re (x -y))w, 
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Der zweidimensionale Ljapunow-Exponent ist damit bestimmt durch 


X® = lim —In 


n-o»N 


Wn 


Bild 4.4 Ljapunow-Diagramm 
im Bereich 3.2 <r<3.7 


Für die Parameterwerte € = 0.06, r = 3.70 tritt Hyperchaos auf. Die beiden maximalen 


Ljapunow-Exponenten sind hier X =0.38 bzw. X =0.,69. Sie werden durch das 
Turbo Pascal-Programm 11jap2.pas berechnet und geplottet. 


program 1ja2; 

'(Ljapunow-Exponenten der gekoppelten logistischen Gleichung } 
[$N+} 

uses crt,graph; 


const eps = 0.06; t = 5000; 
rmin = 3.2; rmax = 3.7; 


var i,p,pl,q,ql,s,sl:integer; 
ru neal; 
first : boolean; 
lambdal,lambda2,x,x1,y,yl,u,ul,v,v1,w : extended; 
Graphdriver ‚Graphmode: integer; 


begin 

randomize; 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 

cleardevice; 

rectängle(0,0,639,479); 
line(0,120,639,120); 
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r := rmin; first := true; 
while r<=rmax do 


begin 
x := 0.2; y := 0.4; 
u := 0.5; v := 0.5; w = 0; 
for i:=1 to t do 
begin 


xl := r*x*(1-x)teps*(y-x); 
yl := r*y*(1-y)+teps*(x-y); 
ul := (r-2*r*x-eps)*uteps*v; 
vl := eps*u+(r-2*r*y-eps)*v; 


w .:= w+In(abs(r*r*(1-2*x)*(1-2*y)-2*r*eps*(1-x-y))); 
x := xl; y:= yl; u := ul; v:=vl; 
end; 

lambdal := In(abs(u)+abs(v))/t; 


Jambda2 := w/t; 
p := round((r-rmin)*640/(rmax-rmin)); 
q := 480-round((1ambdal+2)*180); 
Ss := 480-round( (1ambda2+2)*180); 
if not first then 
begin 
setcolor(12);line(pl,ql,p,q); 
setcolor(14);line(pl,sl,p,s); 
end; 
pl := p; ql; := 45 st ==; 
r := r+(rmax-rmin)/640; 
first := false; 
end; 
moveto(8,8) ;outtext( 'Ljapunow-Diagramm'); 
repeat until keypressed; 
textmode(1astmode) 
end. 


4.3 Kaneko I 


K. Kaneko publizierte 1986 folgendes System (Collapse of Tori and the Genesis of 
Chaos in Dissipative Systems, Singapore: World Scientific, 1986) 


An+l ” 1-ax, +4, X) 
Yar+ı = 1-ay- +d(x,-yn) 


das durch die Transformation 


direkt in die gekoppelte, zweiparametrige logistische Gleichung übergeht. 
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Für festgehaltenes a=03 und d=1.75 erhält man eine Grenzkurve, die man als Oszil- 
lation auf einem Torus deuten kann. Steigert man d bis 1.86, kommt es zur Phasen- 
sperre. Ab d=194 erscheinen Chaosbänder auf dem Torus. Bei d=2.04 zerbrechen 
die Bänder und sind bei d = 2.16 in Hyperchaos zerfallen. 


Kaneko I a=0.,3, d=2.04 


Bild 4.5 Kaneko I mit a=0.3, 
d=2.04 


Das System kann mittels des Turbo C-Programms kaneko.c dargestellt werden. 


/* kaneko.c */ 
/* Phasenplot des Kaneko-Systems */ 


#include <stdio.h> 
#include <graphics.h> 
#include <math.h> 
#include <conio.h> 


const double a = 0.3,d = 2.04; 


void main(void) 
[ 
int i; 
double x,y,x1; 
int gdriver ‚gmode; 
gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(ägdriver,&gmode," "); 
rectangle(0,0,639,479); 
x=y=-0.; 
for (i=0; i<=30000; i++) 
[ 
xl = a*rx+(1-a)*l1-d*y*y); 
yEmER, 
x=xl; 
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Te 


putpixel (240+floor(320.*x) ‚320-floor(250.*y) ,1+1/3000); 
} 

moveto(8,8);outtext("Kaneko I a=0.3, d=2.04"); 

do (} while(!(kbhit())); 

closegraph(); 

return; 

} 


4.4 Kaneko II 


Die Gleichung Kaneko I wurde vom selben Autor linearisiert zu 


Xn+l =ax, +(1-a)l-dy,) 


In+1 °n 
Der Fixpunkt 
et 
>”: (1KallEa 


ist nicht stabil, so daß schnell chaotisches Verhalten auftritt. Im Gegensatz zur Glei- 
chung Kaneko 1 ist hier die Jacobi-Matrix konstant. Mit den Gleichungen 


f&,y) =ax+(l-a)(l- Ay) 
8(x,y) =Xx 


ergibt die Jacobi-Derminante 


ä _ ja (a-1) en 
etJ=|, 0 =(l-a)d 


‚Wegen der Konstanz der Determinante ist die Summe der eindimensionalen Ljapu- 
now-Exponenten gegeben durch 


% +2, = Inldet J|= Inlt-a)d] 


Das charakteristische Polynom erhält man aus der Determinante 


a—- u ER 
l u 


Die Lösung der quadratischen Gleichung liefert 


u= Lat ya? -4(1-a)d) 


det(J- uE)= 
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Kaneko 11 a=0.1, d=1.23 


Bild 4.6 Kaneko II mit 
a4=014=123 


Dies zeigt, daß die Eigenwerte u für a=0.1;d=1.23 konjugiert komplex werden. Da 
konjugiert-komplexe Zahlen betragsgleich sind, folgt 


% = ZindderD) = Zinla-a)d| 


Für die angegebenen Parameterwerte ergibt der Ljapunow-Exponent 
ı =0.102>0 


und zeigt damit chaotisches Verhalten. 


Bifurkation Kaneko II 


Bild 4.7 Bifurkationsdiagramm 
von Kaneko I für 1<d<1.7 


5 Henon-Abbildung 


Die 1976 von Henon (M. Henon: A twodimensional mapping with a strange attrac- 
tor, Comm. Math. Phys., 50, 69-78) angegebene Abbildung (englisch Henon map) 
lautet 


er 2 
An+] = + y, =aX, 


Yn+l ” bx, 


Henon-Attraktor 


Bild 5.1 Henon-Attraktor 


Nach dem Vorbild des Hufeisen-Modells von Smale ist die Henon-Abbildung kon- 
struiert durch Verkettung folgender Funktionen 
T:x=xvy=y+l-ax? (Faltung in parabelähnliche Form) 
T:x=bxX.y.=y: (Stauchung in x-Richtung) 
Te. yo ye=r (Spiegelung an Winkelhalbierenden) 
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Nachträglich erkannte Henon, daß die von ihm - zunächst willkürlich — gewählte 
quadratische Form mit zwei Parametern bereits die allgemeinste quadratische Abbil- 
dung mit konstanter Jacobi-Determinante darstellt. 


Für die Parameterwerte a=1.4,b=0.3 fand Henon den Attraktor von Bild 5.1. Dieser 


Attraktor ist beschränkt, da er innerhalb des Vierecks ABCD liegt, das durch folgen- 
de Eckpunkte bestimmt ist 


(xy) =(-1.33]-0.42) | 


(x3l»5)=(1.32l0.133) | | 
(ze/vc)=(1.2451-0.14) 


(xplvn)=(-1.06|-0.5) | 


5.1 Fixpunkte der Henon-Gleichung 


Der Ursprung ist, wie ersichtlich, ein Fixpunkt. Weitere Lösungen der Fixpunkt- 
Gleichung sind 


-1+bt 1-5)? +4a_ 


er ee 
Diese sind reell für 
2 
(1-b) 
I er | 
a2 1 | 


Die Jacobi-Matrix der partiellen Ableitungen ist hier 


J —2ax 1 | 
ENDE 0 | 
mit der Determinante detJ=-b. Für |bJ=1 ergibt sich somit eine flächentreue Abbil- 


dung, die aber hier nicht von Interesse ist. Für die Summe der Ljapunow-Exponenten 
folgt somit 


M+% = Inlb] 


Für die Eigenwertgleichung oder charakteristisches Polynom folgt 
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—2ax— u 


I 2 
det p in =0 oder u“ +2axu -b=0 


Da Mm =1 die Stabilitätsgrenze der Fixpunkte ist, macht man den Ansatz u =e®P, 


Die Eigenwertgleichung zerfällt nach Trennung der Real- und Imaginärteile in die 
beiden Gleichungen 


cos2p +2ax cosp -b=0 
sin2p +2axsinp = 0 
Die letztere Gleichung hat die Lösungen 
sin =OAcosp =+]1 
Einsetzen in die erste Gleichung zeigt, daß es nur für 
d-b)° 
4 


eine Lösung gibt für den Fall, daß die beiden Fixpunkte zusammenfallen. Das negati- 
ve Vorzeichen ergibt u =-1 und liefert eine Periodenverdopplung. Der Fixpunkt 


(xx) wird instabil für 


_ 301-5)? 
STE 


der andre Fixpunkt 61) ist stets instabil. Die zweite Gleichung hat ebenfalls noch 


die Lösung cosp =-ax. Diese aber liefert wieder die Bedingung b=-1. Für die von 
Henon gewählten Standardwerte a= 1.4, b= 0.3 erhält man zwei nichtstabile Fixpunk- 
te; einer davon ist 


(x, I»1)=(0.63134j0.18941) 


Die Punktemenge von Bild 5.1 ist daher eine nichtstabile Mannigfaltigkeit. Interes- 
sant ist, daß das Henon-System umkehrbar ist; d.h. aus (x, Pr 2 läßt sich die 


Iteration eindeutig zurückrechnen auf (xD, ) Die so erhaltene stabile Punktemenge 


ist in Bild 5.2 ersichtlich. Sie kann mit dem Programm Quick Basic-Programm he- 
non2.bas erhalten werden. 


Fl 
rn 


= 5 Henon-Gleichungen 


Rire 
N EN 5 
he 
Ai d- 


Bild 5.2 Stabile und nichtstabile 


stabile u.unstabile Nannigfaltig- "NA Punktmengen des Henon- 
keiten des Henon-Attraktors r 
Systems 


'henon2.bas 


CONST a =1.4:b= .3 
DIM x, x1, y AS DOUBLE 
DIM i AS LONG 


SCREEN 12: CLS 

' WINDOW (-3.5, -2.4)-(3.5, 2.8) 
LINESTE329, 2254) 13.5,72.8),3°,.B 
RANDOMIZE TIMER 
X=r. 127 vom] 


FOR i = 1 TO 20000 
les + ya RN 
y=-b*x 
x=xl 
IF i > 20 THEN PSET (x, y), 9 
NEXT i 


FOR i = 1 TO 100000 
IF RND < .5 THEN 
%:= .63:* RND: y = .19 


ELSE 
x= .63: y= .19 * RND 
END IF 
DO 
ıl=y/b 
y.=x%-.1:+a.*%x1%x1 
x=ıxl 


PSET (x, y), 14 
LOOP WHILE (ABS(x) < 2) AND (ABS(y) < 3) 
NEXT i 
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LOCATE 28, 2: PRINT "stabile u.unstabile Mannigfaltig-" 
LOCATE 29, 2: PRINT "keiten des Henon-Attraktors"; 

e$ = INPUT$(1): SCREEN 0 

END 


5.2 Berechnung der Ljapunow-Exponenten 


Aufstellen der Variationsgleichungen liefert das System 

Un) =—2aX,u, + V, 

Yn+1 = b U, 
Die Berechnung der Ljapunow-Exponenten mittels des Pascal-Programms hen] jap.pas 
liefert für die Parameterwerte a=1.4,;b=0.3 den maximalen Ljapunow-Exponenten 


A =042 
Damit ergibt sich aus der Jacobi-Determinante wegen A, +A, = Inld| =-1.20 
% =-162 


Ljapunou-Diagramn des Hanon-Syustens 


Bild 5.3 Ljapunow-Diagramm 
der Henon-Abbildung 


program henljap; 
( Ljapunow-Diagramm der Henon-Gleichung | 
[$N+) 


uses crt,graph; 

const b = 0.3; T = 5000; 

var a,x,xl,y,yl,u,ul,v,vl: extended; 
lambda:double; 
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ji : integer; 
first : boolean; 
Graphdriver,,‚Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 

cleardevice; 

rectangle(0,0,639,479); 
line(0,160,640,160); 

setcolor(14); 


a :=0; first := true; 
while a<=1.4 do 
begin 
x := 0.1; y := 0.3; u := 0.1; v :=.0.3; 
for i :=1toT do 
begin 
xl := 1+y-a*tx*x; 
yl := b*%; 
NEROTAL IE 
b*u; 
Ken ;iyt:=eylskut:=iul;ivöreivl 
end; 
lambda := In(abs(u) + abs(v))/T; 
if first then 
moveto(round(a*427) ,480-round((1ambda+1)*320) ) 
else 
lineto(round(a*457),480-round((lambda+1)*320)); 
a := a+0.0021875; 
first := false 
end; 
moveto(8,8); outtext('Ljapunow-Diagramm des H&non-Systems'); 
repeat until keypressed; | 
textmode(1astmode) 
end. 


< 
pe} 
I) 


5.3 Die Kaplan-Yorke Vermutung 


Die 1978 von Kaplan und Yorke aufgestellte Vermutung (Chaotic behaviour of mul- 
tidimensional difference equations, publiziert in Lecture Notes in Mathematics 730) 
erlaubt es, die fraktale Dimension eines Attraktors anhand der Ljapunow- 
Exponenten abzuschätzen. Ist j die Anzahl der positiven Exponenten und werden die 
Exponenten monoton fallend numeriert, so gilt für die Kaplan-Yorke-Dimension, 
manchmal auch Ljapunow-Dimension genannt, 


 MtMt..‘ 
=zi+——— 


Nu 


D 


dabei ist die natürliche Zahl j gekennzeichnet durch die obengenannten Bedingungen 
l +1 
yı >0OA S, <0 
i=1 i=1 


Für den Henon-Atraktor ergibt sich hieraus mit j=1 


Die de 
Ro] 


Dies ist auch der Wert, der sich in der Literatur findet (vgl. Mandelbrot [17], Seite 210). 


5.4 Die Kapazität nk . 


Die Kapazität oder Box-Counting Dimension einer fraktalen Menge ist definiert 
durch den Grenzwert 


Dabei ist N, die minimale Anzahl von Gebieten wie Quadrate, Würfel usw. mit der 
Kantenlänge € , die man benötigt, um die fraktale Menge zu überdecken. 


Diese Form des Grenzwerts ist jedoch für numerische Zwecke nicht besonders geeig- 
net. Man geht daher etwas anders vor. Im dreidimensionalen Fall gilt näherungsweise 
N, = Ve“. Logarithmieren liefert 


InN, =CIint+1nV 


Plottet man in einem Koordinatensystem den Logarithmus von N, gegen den Log- 
arithmus von &£ so erhält man eine Gerade, deren Steigung die gesuchte Kapazität ist. 


Mit dem Turbo C-Programm capacity.c zur Berechnung der Kapazität erhält man bei 
den Parameterwerten a=1.4;b=0.3 für den Henon-Attraktor die Tabelle 


€ N, 
0.008 3143 
0.004 8380 
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Lineare Regression liefert für diese Punkte die Geradensteigung € = 1.31. In der Lite- a 
ratur findet sich hier für die Box-Counting-Dimension der Wert D=1.21. Siehe dazu: 
Estimating the fractal dimensions and entropies of strange attractors von P. Grass- 
berger (Wuppertal) im Sammelband [13]. 


/* capacity.c */ 
/* Box-Dimension des H&önon-Attraktors */ 


#include <stdio.h> 
4Äinclude <stdlib.h> 
#include <math.h> 


i#define N 2048 

#define XDIM 110 

#define YDIM 366 

const double eps = 0.002; 

float capacity(float *x, float *y, unsigned char box[LYDIMILXDIM)); 


void main(void) 

{ 

float x[N],y[N]; 

float cap; 

int 3; 

unsigned char box[YDIMILXDIM]; 


x[0] = 1.161094; y[0]J = -0.09541356; 
for (j=0; j<N-1; j++) 
{ 
xLj+1] = 1.+y[j]-1.4%L[j]*%L[j]; 
yLj+1] = 0.3%xL[j]; 
] 
cap = capacity(x,y,box); 
printf("Capacity = %f\n",cap); 
} 


float capacity(float *x, float *y,unsigned char box[YDIMJILXDIM)) 
{ 


unsigned int i,j,kK,Nx,Ny,Neps=0; 
float mx,my,xmin,xmax,ymin,ymax; 


xmin = xmax = x[0]; 
ymin = ymax = y[0]; 
for (i=1; i<N; i++) 
{ 
if (xLi]<xmin) xmin=li]; 
else if (x[Lil>xmax) xmax=x[i]; 
if (yLiJ<ymin) ymin=y[i]; 
else if (y[Lil>ymax) ymax=y[i]; 
) 
Nx = (unsigned) ((xmax-xmin)/eps +1.); 
Ny = (unsigned) ((ymax-ymin)/eps +1.); 
mx = ((float) Nx-1.)/(xmax-xmin); 
my = ((float) Ny-1.)/(ymax-ymin); 
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for (i=0; i<Ny; i++) 
for (j=0; j<Nx; j++) boxLillj]=0; 
for (i=0; i<N; i++) 
{ 
k = (unsigned) floor(mx*(xLi]-xmin)+0.5); 
3 = (unsigned) floor(my*(yLiJ-ymin)+0.5); 
box[Lj]J[k] = 1; 
} 
for (i=0; i<Ny; i++) 
for (j=0; j<Nx; j++) Neps += (unsigned) boxLillj]; 
return (float)(log(Neps)/log(1./eps)); 
} 


Das Programm liefert nur Näherungswerte für die Kapazität, da € hier nicht beliebig 
klein gemacht werden kann. Sind die Werte N, = Neps gesucht, so kann man diese 
aus der Funktion capacity ausdrucken lassen. 


5.5 Das Korrelationsintegral 


Ein andere fraktale Dimension liefert das Korrelationsintegral, definiert durch 


1 n 
Cr)=im— Y,Ar-\x,-x;,) 
TR Ljebie] | ] 
dabei ist H(x) die Heavyside-Funktion. Das Korrelations-Integral verhält sich für 
kleine r näherungsweise gemäß dem Potenzgesetz ; 


Cir)«r? 


Der Exponent D ist die gesuchte Korrelationsdimension. Das angegebene Turbo C- 
Programm zum Korrelations-Integral liefert für die Parameterwerte a=1.4;b=03 die 
Tabelle 


r C(r) 

6 0.1231 

7 0.1450 

8 0.1687 

9 0.1926 - 
10 0.2178 
11 0.2427 
12 0.2670 


Die lineare Regression liefert für die Logarithmen der Tabellenwerte den Wert 
D=1.12für die Korrelationsdimension. 
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Im allgemeinen kann nicht erwartet werden, daß die fraktalen Dimensionen, die nach 
Kaplan-Yorke bzw. mittels Kapazität und Korrelation berechnet werden, exakt 
übereinstimmen. Die Hoffnung der Mathematiker, hier ein einheitliches Dimensi- 
onsmaß zu finden, haben sich zerschlagen. Beim Henon-Attraktor streuen diese Wer- 
te stärker; die fraktale Dimension liegt daher zwischen 1.21 und 1.32. 


Ein Verfahren zur Berechnung des Korrelationsintegral liefert das Turbo C- 
Programm corrint.c. 


1X corrint.c */ 
/* Correlations-Integral des H&non-Attraktors */ 


#include <stdio.h> 
#include <stdlib.h> 
. #include <math.h> 


const double a=1.4; 

const double b=0.3; 

const int T = 5000; 

static float x[50001,y[5000]; 
static long int f[13]; 

double c[13]; 


void main(void) 
{ 

inc.ilJer; 
double norm,u,v; 


x[0] = y[0] = 0.; 
for (i=1; i<T; i+) 
| 
xLi] = 1.+yli-1]-a*x[Li-1]*%x[i-1]; 
yLi] = b*li-1]; 
} 
for (i=0; i<T; i+) 
for (j=0; j<i; j+) 
{ 
u = x[Li]l-x[j]; 
v= yli]-yl[Lj]; 
norm = sart(u*utv*v); 
f[L(int)(30*norm) J++; 
} 
for (i=1; i<=12; i+) fli] + fli-1]; 
for (r=0; r<=12; r+) 
{ 
c[r] = f[r]*%2./T/T; 
printf("%6d %121d %12.41f\n",r,f[r],c[r)); 
} 
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5.6 Bifurkationsdiagramm 


Von den beiden Parametern des Henon-Systems wird meist der Parameter a als Bi- 
furkationsparameter aufgefaßt. Hält man b=03 fest und läßt a das Intervall 
0<a<1.4 durchlaufen, so erhält man das Bifurkationsdiagramm gemäß Bild 5.4. 


Bifurkationsdiagramm des H£non-Systens 


Bild 5.4 Bifurkationsdiagramm 
des Henon-Systems für 
0<a<14 
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Das von Saltzmann und Lorenz aus den Navier-Stokes-Gleichungen abgeleitete Diffe- 
rentialgleichungssystem lautet 


x=-0(x-)) 
y=(r-2)x-y 
z=xy-bz 


Phaserolot der Lorenzele ichungen 
Projektion in die x,z-Ebene 


Bild 6.1 Projektion der Lorenz- 
Gleichungen in die x-z-Ebene 


Dabei werden die Parameter, wegen ihrer physikalischen Herkunft, als positiv betrachtet: 
s,b,r>0. Die Größe x ist proportional zur Fließgeschwindigkeit, y charakterisiert die 
Temperaturdifferenz zwischen steigenden und fallenden Luftschichten undz ist ein Maß 


für die Störung des vertikalen Temperaturprofils. Wie man sieht, gehen die Gleichungen in 
sich selbst über, wenn man bei x und y die Vorzeichen tauscht. 
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Diese Symmetrieeigenschaft 
(x, Y> 2) =, a 2) 


gilt somit auch für alle Lösungskurven. 


Phasenrplot der Lorenzeleichungen 
Projektion in die yv,z-Ebene 


Bild 6.2 Projektion der Lorenz- 
gleichungen in die y-z-Ebene 


Ein Programm zum Plotten der Lösungskurven ist das Turbo Pascal-Programm 10- 
renz.pas. 


program lorenz; 
uses crt,graph; 


const b = 8/3; r=40; sigma=10; 
dt = 0.01; 
var dx,dy,dz,x,y,z,t : real; 
Graphdriver,,Graphmode:integer; 
first : boolean; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 
rectangle(0,0,639,479); 


first := true; 
x := 0.01; y := 0.01; z := 0; t :=0; 
while t <= 120 do 


begin 
dx := sigma*(y-x)*dt; 
dy := (-x*z+r*x-y)*dt; 
dz := (x*y-b*z)*dt; 


Xu x +dx; 
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yaz=)y% dy; 
zmezrdz, 
setcolor(1+trunc(t/8)); 
if first then 
moveto(round(8*x)+320,470-round(5.5*z)) 
else 
lineto(round(8*x)+320,470-round(5.5*z)); 
t := t+dt; 
first := false; 
end; 
setcolor(15); 
moveto(10,10);outtext("Phasenplot der Lorenzgleichungen'); 
moveto(10,20);outtext('Projektion in die x,z-Ebene'); 
repeat until] keypressed; 
closegraph; 
textmode(]astmode) 
end. 


6.1 Dynamik des Lorenz-Systems 


Da die Fixpunkte stationäre Lösungen sind, verschwinden die zeitlichen Ableitungen 
und es ergeben sich die Gleichungen 


0=-0(x-y) 
0=(r-z)x-y 
0=xy-bz 


Man erkennt sofort, daß x=y=2z=0 eine Lösung ist, somit ist der Ursprung für alle 
Parameterwerte ein Fixpunkt. Setzt man x=y, so erhält man die weiteren Lösungen 


x=y=+t/b(r-)); z=r-l 


Für r>1 existieren somit die beiden Fixpunkte 


c& = /br-1) kybr-1] r-ı) 


Die Jacobi-Matrix ergibt sich aus den partiellen Ableitungen 


5700 
3=1'r..-12.0 
y x - 


Die Spur der Matrix, d.h. die Summe der Diagonalelemente, liefert die Divergenz des 
zugrundeliegenden Vektorfeldes: 


divF=-(s+b+l)<0 
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Da die Divergenz konstant ist, stellt sie die Summe der eindimensionalen Ljapunow- 
Exponenten dar 


kth+%=-(6+b+1) 


Das negative Vorzeichen der Divergenz zeigt an, daß sich der Phasenraum zu- 
sammenzieht. Für den Ursprung erhält man das charakteristische Polynom 


det(J- HE)= (u -b)(u? +(l+0n)-o(r-1)) 


Die Eigenwerte jı dieser Gleichung sind für O<r<1 alle reell und negativ. Dies be- 
deutet, daß der Ursprung ein stabiler Fixpunkt, d.h. ein Attraktor ist. Alle Bahnen 
landen schließlich im Ursprung. Für r>1 verliert der Ursprung seine Stabilität, es 


kommt zu Gabel-Bifurkationen. Die allgemeine charakteristische Gleichung für C* 
ist 


det(J- HE)= 1° +(1+0 +b)u? +b(r+0)u +20b(r-1) 
Die Eigenwerte werden konjugiert komplex für 


(6 +b+3) 
nee 
AT 6-b-l 
wenn o-b-1>0 gilt. Dies bedeutet, daß bei r,, Hopf-Bifurkationen einsetzen. Die 
Fixpunkte C” ist somit stabil für I<r<r,, und instabil für r>ry. Für die Parame- 


terwerte o=10 und b=% folgt rz, = 24.737 . Durch numerische Experimente erhält 
man folgende Dynamik: 


>» Für 1<r<13926 umlaufen alle Trajektorien die Fixpunkte C*. 


» Für r=13.926 gibt es eine homokline Bahn; d.h. sie beginnt und endet an einem 
nichtstabilen Fixpunkt. Dies ist hier der Ursprung. 


>» Für 13926 <r< 24.06 »spiralen« sich alle Bahnen um C* und halten sich längere 
Zeit in der Nähe eines seltsamen Anziehungspunktes auf. 


>» Für r>24.06 umlaufen noch einige Bahnen C*, ab r>24.737 winden sich alle 
Bahnen um den seltsamen Anziehungspunkt, der nun zum Attraktor geworden ist. 


Bei r=22.4 kündet sich durch Intermittenz nach Manneville und Paumeau bereits das 
Chaos an; dies zeigt Bild 6.3. Die zugehörigen Trajektorien (Bahnen) können mit 
dem Turbo C-Programm trajec.c erstellt werden. 

/* trajec.c */ 

/* Intermittenz bei Lorenzgleichungen */ 


#include <stdio.h> 
#include <graphics.h> 
#include <math.h> 
#include <conio.h> 
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const double sigma=10. ‚b=2.6667 ,r=22.4; 
const double dt = 0.001; 


void main(void) 
{ 
double x,y,z,dx,dy,dz,t; 
int gdriver,gmode; 
gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 
line(10,240,639,240); 
setcolor(14); 
x=y=0.8; z=-0.95;t=0; 
do 
( 
dx = sigma*(y-x)*dt; 
dy = (-x*z+r*x-y)*dt; 
dz = (x*y-b*z)*dt; 
x += dx; 
y+:dy; 
z += dz; 
putpixel((int)floor(t*6.4) ,240-(int)floor(10.*y),14); 
t/+= dt; 
} 
while(t<=100.); 
moveto(8,8);outtext("Intermittenz bei Lorenz-Trajektoren"); 
do {} while(!(kbhit())); 
closegraph(); 
return; 
} 


Intarnittenz bei Lorenz-Trajektoren 
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Bild 6.3 Intermittenz bei Lorenz- 
Gleichungen 
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6.2 Lorenz-Map 


In seiner Arbeit gab Lorenz auch die von ihm gefundene Lorenz-Map an, die in der 
Literatur auch Return-Map genannt wird. Diese besteht aus dem Plot sukzessiver Ma- 
xima der z-Komponente der Lösungskurven. Es ergibt sich hier eine überraschend ein- 
fache Abbildung (Bild 6.4), die in ihrem Verhalten der Zeltdach-Funktion ähnlich ist. 


Plot sukzessiver z-Maxima 


Bild 6.4 Lorenz Map 


Es folgt ein Quick Basic-Programm zum Erstellen der Lorenz Map. 
"lorenz2.bas 


CONST sigma = 10: b = 2.66667: r = 28 
CONST dt = .0l: N = 16000 

DIM i AS INTEGER 

DIM x, y, z, dx, dy, dz AS DOUBLE 

DIM c(N) ‚m(250) 


SCREEN 12: CLS 
WINDOW (20, 25)-(55, 55) 
LINE;(20,,25)- (55,530 755B 


c(0) = z 
FOR i =1TON 


dx = sigma * (y- x) * dt 
dy=(r*x-yox%*% 2), “0 
dd=(x*y-b*z)*dt 

x + dx 

y +.dy 


<< x 
una 
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z=2+dz 
ci)=2z 
NEXT i 
j=0 
FRi=1T0ON-]1 
IF cli - 1) < ci) AND cli) > cli + 1) THEN m(j) = ci): J = J +1 
NEXT i 
u = m(2) 
FRi=3T0j 
v=m(i) 
IF u < 48 THEN PSET (u, v), 9 
u=v 
NEXT i 
NEXT k 
LOCATE 2, 2: PRINT "Plot sukzessiver z-Maxima" 
e$ = INPUT$(1): SCREEN 0 
END 


6.3 Berechnung der Ljapunow-Exponenten 


Der maximale eindimensionale Ljapunow-Exponent A , wird numerisch berechnet. 
Die Variationsgleichungen lauten 


u=0(v-u) 
v=(-z+tr)Ju-v-xw 


w= yu+xv-bw 


% , ergibt sich dann aus dem Grenzwert A| = lim —1nlka, v‚w)|, wobei die Vektornorm 
nn 


prinzipiell frei gewählt werden kann. Das Pascal-Programm 1or1ja.pas liefert für die 
Parameterwerte 0 =10,b= 3, r=28 den Wert X, = 0.89. Da die Divergenz gleich 


divF=-(6 +b+]) 
ist, folgt hier 


Rita ztrg=-(o+b+)-- 


program lorlja; 

{ Ljapunow-Exponent der Lorenz-Gleichungen |} 
{$N+J} 

uses crt,graph; 


const dt = 0.001; 
sigma = 10; b=2.6667; r=28; 
var i : integer; 
lambda,x,y,z,u,v,w,dx,dy,dz,du,dv,dw,t : extended; 
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Graphdriver ‚Graphmode: integer; 


< 
u ıu 
oO O0 


while t<250 do 


dx := sigma*(y-x)*dt; 

dy := (-x*z+r*x-y)*dt; 

dz := (x*y-b*z)*dt; 

du := sigma*(v-u)*dt; 

dv := ((-z+r)*u-v-x*w)*dt; 

dw := (y*u+tx*v-b*w)*dt; 
Katzdx; 
y+.dy; 
z + dz; 

:= u + du; 
v+dv; 
w+ dw; 
t+dt 


criEa <Ie NIE 
u 


end; 

lambda := (In(abs(u)+abs(v)+abs(w)))/t; 
writeln(lambda:6:3); 

end. 


Zur Bestimmung des mittleren Exponenten verwendet man den Satz: Hat ein dis- 
sipatives System keinen Fixpunkt, wie hier für r >1, so ist mindestens ein Ljapunow- 
Exponent gleich Null. Somit gilt A, =0. Aus der Divergenz läßt sich daraus noch 
A3=-14.5 ermitteln. 


Die Attraktoren lassen sich gemäß den Vorzeichen der Ljapunow-Exponenten klassi- 
fizieren: 


Vorzeichen Attraktortyp Dimension 
Sr Fixpunkt 0 

U Grenzzyklus 1 

(0,0,—) Torus 2 

(+,0,-) seltsamer Attraktor fraktal 


Damit ist bestätigt, daß für die Wahl r=28 von Lorenz ein seltsamer Attraktor auf- 
tritt. Es gibt noch keine allgemein akzeptierte Definition eines seltsamen Attraktors. 
Die gängigste Definition lautet: Ein Attraktor heißt seltsam, wenn er sensitiv von den 
Anfangsbedingungen abhängt. (vgl. Kap. 19) 


Als Beispiel berechnen wir die Kaplan-Yorke-Dimension des Lorenz-Attraktors. Da 
X +A,>0 gilt, folgt r=28. Damit erhalten wir 
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FEN 
D= j+7— = 2.06 
um 


Dies ist auch gleich der Kapazität oder Box-Counting-Dimension des Lorenz-Attrak- 
tors. Vergleiche dazu Mandelbrot [17], Seite 210 oder Grassberger in [13]. Für Werte 
von r>250 verschwindet das chaotische Verhalten des Lorenz-Systems. Dies sieht 
man am Ljapunow-Diagramm des Lorenz-System (Bild 6.5). 


Ljapunos-Diagrann des Lorenz -Systens 


Bild 6.5 Ljapunow-Diagramm 
für 10 <r<300 


7  Attraktoren 


In diesem Abschnitt werden neben den bereits vorgestellten Attraktoren von Henon 
und Lorenz die bekanntesten Systeme mit Attraktoren in Kurzform vorgestellt. 


7.1 Rössler-Attraktor 


Ausslier-Attraktor, Projektion in xy-Ebene 


Bild 7.1 Projektion des Rössler- 
Systems in die xy-Ebene 


Durch den Lorenz-Attraktor angeregt, fand der deutschen Mediziner Otto Rössler 
(An equation for continuos chaos, Phys. Lett. 57A,1976) das nach ihm benannte 
System 

x=-y-27 

y=Xx+tay 

z=b+x2-cz 
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dessen Attraktor eine einfachere Dynamik als derjenige von Lorenz aufweist. 
a,b,cstellen die Parameter des Systems dar; dabei wird oft a=b=0.2 gewählt, c stellt 


dann den Bifurkationsparameter dar. Über seinen Attraktor sagte Rössler (zitiert 
nach Gleick): 


Er sei wie ein offener Strumpf mit einem Loch am Ende und der Wind bläht ihn auf. 
Dann sitzt der Wind in der Falle. Gegen ihren Willen bewirkt die Energie nun etwas 
Produktives, so wie der Teufel in mittelalterlichen Geschichten. Das Prinzip ist, daß 


die Natur etwas gegen ihren eigenen Willen tut und durch Selbstverwirklichung 
Schönheit hervorruft. 


Wegen der beschriebenen Form heißt das System im Englischen auch Roessler funnel. 


Ruszsler-Attraktor 3D 


Bild 7.2 3D-Projektion des 
Rössler-Systems 


Eine dreidimensionale Darstellung des Rössler-Attraktors erhält man mit dem Turbo 
Pascal-Programm roessler .pas. 


program roessler; 


uses crt,graph; 
const a = 0.25; b = 0.28; c = 5.8; 
dt = 0.01; 


var x,y,z,dx,dy,.dz : real; 
ji : longint; 
Graphdriver,,Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,,GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 
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rectangle(0,0,639,479); 
moveto(25,10);outtext('Rössler-Attraktor 3D'); 
N) 
1 
| 
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x#121,0: 5y2 :@-082,720:0; 
for i:=1 to 75000 do 
begin 
dx := (-y-z)*dt; 
dy := (xta*y)*dt; 
dz := (b+z*(x-c))*dt; 
x ı= xX+tdX; 
y ı= y+dy; 
zZ ı= z+dz; 
setcolor(1+i div 5400); 
if i=1 then 
moveto(round(12*x+12*y)+330,350-round( -5%*x+5*y+9*z)) 
else 
lineto(round(12*x+12*y)+330,350-round( -5*x+5*y+9%*z)); 
end; 
repeat until keypressed; . 
closegraph; 
textmode(lastmode) 
end. 


7.2 Metzler-Attraktor 


Von Metzler und anderen wurde durch nichtlineare Kopplung der logistischen Glei- 
chung ein Attraktor gefunden. Publiziert wurde die Arbeit in: Metzler W. /Beau W./ 
Frees W./ Überla A.: Symmetry and Selfsimilarity with Coupled Logistic Maps, Z. f. 
Naturforsch. 42a (1983). i 


An+ı = Ay +h(x, -x +yn) 
2 
IYn+1 "In +h(y, —Yn +x,) 


Die Gleichung entsteht aus der gekoppelten, zweiparametrigen logistischen Gleichung 
(vgl.Kap.4.2) durch die Transformationen 


h h 
ont ra r>1l+h 


Numerisch wurde folgende Tabelle der Ljapunow-Exponenten berechnet: 


h A 
0.6780 -0.0053 
0.6812 0.1620 
0.6840 0.1534 
0.6850 0.1702 


u ENT nt ne TE 
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Damit tritt für r= 1.648 Chaos auf. Für diesen Wert bildet sich das Intervall [1.3; 1.3] 
unter den Metzler-Gleichungen auf sich selbst ab. Der entstehende Attraktor ist dem 
Eiffelturm ähnlich und heißt deswegen auch Tour Eiffel de Cassel nach der Instituts- 
stadt Kassel. 


— Bild 7.3 Metzler-Attraktor für 
r=1.684 


Die Dynamik des Metzler-Attraktors ist folgende. Für r=16 kommt es zu einer 
Hopf-Bifurkation. Bei r=1.65 wird der Ljapunow-Exponent negativ, das Chaos be- 
ginnt. Bei r=1.678 entsteht eine Periode 26. Für r=1.678 findet sich der genannte 
Attraktor. 


Der Metzler-Attraktor kann mit dem Quick Basic-Programm metzler.bas erzeugt wer- 
den. 


'metzler.bas 
'Metzler-Beau-Attraktor 


CONST h = .684 
DIM x, y, x1 AS SINGLE 
DIM i AS LONG 


SCREEN 12: CLS 
WINDOW (-1.6, -1)-(3.6, 3) 
LINE(-1.6, -1)-(3.6,,3), .;.B 


Km) -Icsyae.B 

FOR i = 1 TO 50000 
xI = x Hhr% (x =.XxX Hy) 
yaeıyss hy 'yı* y+4x) 
x=xl 
IF i > 10 THEN PSET (x, y) 
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NEXT i 

LOCATE 29, 4: PRINT "Metzler-Attraktor"; 
e$ = INPUT$(1): SCREEN 0 

END 


7.3 Ikeda-Attraktor 


Ikeda-Attraktor 


Bild 7.4 Ikeda-Attraktor 


Die Ikeda-Gleichung wurde publiziert in: Ikeda I. Akimoto O.: Instability leading to 
periodic and chaotic self-pulsations in a bistable optical cave, Phys. Rev. Lett. 48, 
(1982). Das Gleichungssystem stammt aus der nichtlinearen Laser-Optik, es hat die 
komplexe Form 


d 
Zu, = a—bz, explilc = 2 )) 
n 


mit den reellen Parametern a,b,c,d. Die komplexe Exponentialform läßt sich nach 
der Eulerschen Formel in Real- und Imaginärteil trennen. Dies liefert das zwei- 
dimensionale System 


X, =atb(x, cost—y, sin?) 


Ya = b(x, sint+y, cos?) 


wobei für 1 gilt 
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Bild 74 zeigt ein Phasendiagamm des Ikeda-Attraktors für 
a=0.85,b=09,c=0.4,d=9.0.Das Turbo C-Programm ikeda.c stellt den (mut maßli- 
chen) Ikeda-Attraktor am Bildschirm dar. 


/* ikeda.c */ 


#include <stdio.h> 
#include <math.h> 
#include <graphics.h> 
#include <conio.h> 


const float a = 0.85,b = 0.9,c = 0.4,d = 9.; 


void main(void) 

| 

int-i> 

double x,x1,y,5,co,t; 
int gdriver,,gmode; 


gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 

moveto(8,8) ;outtext("Ikeda-Attraktor"'); 


x=0.4;, y=0.5; 
for (i=1; i<=25000; i++) 
( 
t = c-d/(1.+ x*%x+y%y); 
s = sin(t); co = cos(t); 
xl = a+b*(x*co-y*s); 
y = b*(x*sty*co); 
x=xl; 
putpixel(210+floor(180.*x+.5), 210-floor(120.*y+.5), 1+1/6000); 
} 
do {} while(!(kbhit())); 
closegraph(); 
return; 


} 


7.4 Ueda-Attraktor 


Die Ueda-Gleichungen (Ueda Y./ Akamatsu N.: Chaotically transitional phenomena 


in the forced negative resistance oszillator, IEEE Trans. CS 28 (1981)) stammen aus 
der Elektronik. 


x=y 
y=al- x?)y gr bcos( ft) 
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Bild 7.5 Phasenabbildung der 
Ueda-Gleichungen für b=17 und 
f=4.0 


Für manche Wertepaare von (b, f) kommt keine Schwingungsanregung zustande. Quasi- 
periodischen Verlauf erhält man für alle Werte von f, wenn b nur klein genug ist. Für 
b=17 und f=4.0 fanden die beiden Japaner einen (mutmaßlichen) seltsamen Attraktor. 


Ueda, der in Japan Pionierarbeit in Sachen Chaosforschung leistete, fand — ähnlich 
wie Ruelle - kaum Anerkennung bei seinen Landsleuten. Ein Kollege sagte ihm: Ihr 
Ergebnis ist nichts weiter als eine fastperiodische Oszillation. Sie dürfen sich keinen 
egoistischen Illusionen hingeben, daß dies reguläre Zustände sind. 


Bild 7.6 Ueda-Attraktor, auch 
»Japanese attractor« genannt 
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Das Quick Basic-Programm ueda2.bas plottet den Ueda-Attraktor am Bildschirm. 


program ueda2; 
{ Veda-Attraktor } 


[$N+) 
uses crt,graph; 
const k = 0.1; b=12.0; 
n = 800; 
dt = 2*pi/n; 
var x,y,2z.dx,dy,dz : double; 
i,j : integer; 
Graphdriver,,Graphmode:integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 


x:= 2 ; y:=0; z:=0; 
for i:=1 to 5000 do 


begin 
for j:=1 ton do 
begin 
dx := y*dt; 
dy := (-k*y-x*x*x+b*cos(z))*dt; 
dz := dt; 
x := Xt+dx; 
y := y+dy; 
z := z+dz; 
end; 
putpixe] (round(120*x) ‚230-round(22*y),14); 
end; 


repeat until keypressed; 
textmode(]astmode) 
end. 


7.5 Duffing-Attraktor 


Der sinusförmig angeregte Duffing-Oszillator wurde ebenfalls von Ueda untersucht 
in Explosion of strange attractors exhibited by Duffing’s equation, Ann. N.Y. Acad. 
Sci. 357 (1980). Die Duffing-Gleichung 


k+ax+x=bcost 


kann durch die Substitution x = y als System 
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x=y 


y= <ay=x +bcost 


geschrieben werden. Für die beiden Parameter gelten die Ungleichungen 
0<a<l, 0<b<35 


Bild 7.7 Duffing-Oszillator mit 
a=02,b=30.75 


Periodische Lösungen erhält man bei festem a=0.2, z.B., für b=16.5; chaotische für 
b= 30.75. In der Literatur findet sich die Duffing-Gleichung auch in der Form 


X+bx+cx+dr’ = f cos(Qr) 
Bei dieser Gleichung findet man periodische Lösungen für 
b=1,c=-10,d4=10,N2=35 


Chaos tritt ein für den Parametersatz 
b=01c=0,4=10,831 


Ein Attraktor zeigt sich beim Poincare-Schnitt, der sich ergibt durch die Invarianz der 
Gleichung gegenüber der Transformation 


ae 
9) 


Das Turbo Pascal-Programm duffing3.pas liefert den Poincare-Schnitt des Attraktors. 
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Buffing-Attraktor 


Bild 7.8 Duffing-Attraktor 


program duffing3; 
[$N+,E+) 


uses crt,graph; 
const b=0.1; c=0; f=12; omega = 1; 
n = 800; p2 = 2*pi; 
dt = 2*pi/(omega*n); 
var x,y,z,dx,dy,dz : double; 
i,j : longint; 
Graphdriver,‚Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 
rectangle(0,0,639,479); 
moveto(10,10) ;outtext( 'Duffing-Attraktor'); 
x:=-1.0 ; y:=1.0; z:=0; ( Startwerte ) 

for i:=0 to 8000 do 


begin 

for j:=1 to n do 

begin 

dx := y*dt; 

dy := (-(xtxtx+c*k+b*y)+f*cos(p2*z))*dt; 

dz := omega/p2*dt; 

x := xX+dx; 

y := yıdy; 

zZ := z+dz; 

end; 

if i>50 then putpixel (round(60*x)+140,240-round(17*y),15) 
end; 
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repeat until keypressed; 
closegraph; 
textmode(lastmode) 

end. 


7.6 Lozi-Gleichung 


Bild 7.9 Lozi-Attraktor mit 
a=1.6, b=0.5 


Die Lozi-Gleichung, publiziert in Un attracteur etrange(?) du type de Henon, ]. de 
Physique, 39 (1978), kann als Linearisierung der Henon-Abbildung aufgefaßt werden 


KAn+lı 199 -alx,| 
In+ı 7 bx, 
mit ,b>0. Numerische Berechnungen sprechen für die Existenz eines seltsamen 


Attraktor für die Parameterwerte a=1.7,b=05. Der (mutmaßliche) Lozi-Attraktor 
kann mit dem Turbo Pascal-Programm 1ozi.pas geplottet werden. 


program lozi; 
($N+} 


uses crt,graph; 

const a=1.7; b=0.5; 

var i:longint; 
X,x1,y,yl,u:double; 
Graphdriver,‚Graphmode:integer; 


begin 
GraphDriver := Detect; 
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Initgraph(GraphDriver,GraphMode,' '); 
SetgraphMode(Graphmode); 

cleardevice; 

setbkcolor(15); 


re 05 y:=0.5; 
for i:=1 to 10000 do 
begin 
xl :=x; yl:= y; 
x := 1+yl-a*abs(xl); 
y := b*l; 
putpixel (round(180*x+280) ,round(180*y+220),1+i div 1000 ) 
end; 
repeat until keypressed; 
closegraph; 
TextMode(1astmode) 
end. 


7.7 Rayleigh-Gleichung 


Als Beispiel eines dynamischen System mit einem Grenzzyklus sollen die Rayleigh- 
Gleichungen (zitiert nach Rietman [28]) betrachtet werden 


x='y 
y=(y-+y’)-x+fcos(z) 
z=® 


Für die Parameter @=1,f=1 erhält man die Grenzkurve von Bild 7.10. Das Pro- 
gramm soll als Übung geschrieben werden. 


7.8 Tomita-Gleichung 


Von Tomita und Kai wurde die Brüsselator-Gleichung (vgl. Kapitel 17.2) um einen 
sinusfömigen Term ergänzt. Die Gleichung wurde publiziert in Tomita K./ Kai T.: 
Stroboscopic phase portrait and strange attractors, Phys. Lett. 66A (1937) 
x=a+xy-bx-x+ccos(fi) 
y=bx- xy 
Standardmäßig werden die Werte a=0.4,b=12,c=0.05 gewählt. Für wachsende 


Werte von f erhält man Perioden-Verdopplungen, beginnend mit f=0.8. Für 
f=095 wird schließlich Chaos erreicht. 


7.8 Tomita-Gleichung 


7.8’Tomis:Eleihung _ | BIT 2 u 
Bild 7.10 Grenzkurve der Ray- 
leigh-Gleichung 
Bild 7.11 Tomita-System mit 
a=04,b=12, c=0.05, 
f=095 


program tomita; 
uses crt,graph; 


const a = 0.4; b = 1.2; c=0.05; f=0.95; 
dt = 0.01; 
var x,y,2,dx,dy,dz : real; 
i : longint; 
Graphdriver ‚Graphmode: integer; 


begin 


GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode, '\tp\bgi'); 
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SetgraphMode(Graphmode) ; 
rectangle(0,0,639,479); 


x:= 0.5 ; y := 3.0; z:=0; 

for i:=0 to 25000 do 
begin 
dx := (atx*x*y-b*x-x+c*cos(z))*dt; 
dy := (b*x-x*x*y)*dt; 
dz := dt; 
x := xX+dx; 
Yı = ytdy; 
z := z+dz; 
setcolor(1+i div 1000); 
if i=0 then 
moveto(round(400*x)+150,1100-round(330%*y) ) 
else 
lineto(round(400*x)+150,1100-round(330*y) ) 
end; 

repeat until keypressed; 

closegraph; 

textmode(lastmode) 

end. 


8 Konservative Systeme und 


das KAM-Theorem 


In diesem Abschnitt wird anhand von drei Beispielen eine anschauliche Einführung in 
das KAM-Theorem gegeben; eine weitergehende mathematische Darstellung führt 
über den Rahmen des Buches hinaus. 


8.1 Quadratische Henon-Gleichung 


Bild 8.1 Quadratische Henon- 
Gleichung für a=135 


Die quadratische Henon-Gleichung lautet 


2... 
%41 7%, C0sa-(y„, -%,)sina 


i 2 
Ya+y 7%, sina+(y, —x„)cosa 
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publiziert in Henon M.: Numerical Study of a quadratic area-preserving mappings, 
Q. Appl. Math. 50, 1976. 


Bild 8.2 Quadratische Henon- 
Gleichung für a= 1.5237 mit 
1:4 Resonanz 


Das System wird in der populären Literatur auch KAM-Torus genannt und ist genau 
genommen eine Poincare-Abbildung, da die vorkommenden Variablen neben Koor- 
dinaten auch Geschwindigkeiten darstellen. Der Ursprung ist, wie man sieht, ein 
Fixpunkt. Die Jacobi-Determinante ist 

cosa -sin 


} = cos’ a+sina=1 
sina cosa 


det J = 


im Ursprung konstant gleich 1; das System ist somit konservativ. Dies bedeutet im 
physikalischen Sinn, daß keine Reibungskräfte auftreten und somit die Erhaltung der 
Energie gilt. Die Eigenwerte der Jacobi-Determinante sind 


tia 
H=e 


und haben daher den Betrag 1. Die Bedingung ul <1 für stabile Fixpunkte ist somit 
nicht erfüllbar. Der Parameter a kann als Bogenmaß eines Winkels gedeutet werden; 
interessante Kurven erhält man durch Werte von a in der Nähe von 7. 


Bilder 8.1 und Farbtafel 10 zeigen die quadratische Henon-Gleichung für a=135, 
Bild 8.2 für a= 1.5732. Wie im Abschnitt 8.4 gezeigt wird, kann der Parameter a als 
Maß für eine Störung des Systems gedeutet werden. Für a=135 ist also die Störung 
noch klein und betrifft nur die Randgebiete. Dagegen sind die Kreise für a=1.5732 zu 
einer 1:4-Resonanz aufgebrochen. 


Fr 
ae Be 


„. 
we 
? 


26 D ; 
jadratische 
N 


progtan nd ıadr 


Rn 
> 


uses crt, graph; 


constan 2" 1735 zur ur ar 
hr, 0 RT 
max = 1.0e10; 


var i,j,Pp,q : integer; 
x0,x,x1,y0,y,yl,cosa,sina : real; 
Graphdriver,Graphmode:integer; EERURE 


begin Fr | A RR 
GraphDriver := Detect; : 
Initgraph(GraphDriver,GraphMode, NEN I; 
SetgraphMode(Graphmode) ; 

cleardevice; 

rectangle(0,0,639,479); 

moveto(8, 8); outtext(' Quadr. Henonz Abb. a. 35' ): 


x0 := 0.01; y0 := -0.02; 
cosa := cos(a); sina := sin(a); 
x 2er KO, ySanyUr 
for j:=1 to 50 do 
begin 
for i:=1 to 1500 do 
begin 
if (x<max) and a) - 
begin Cr 
xl := x*cosa-(y- x*x)*sina; 
y := x*sinat(y-x*x)*cosa; 
Xıe=ixl; 
if (abs(x+l. 33) and (abscı. 5- th 
begin RER 
p := round (x+1.3)*240); FO 
q := round((1.5-y)*180); 
putpixel(p,q, 143 mod 16); 


a aa in N AS vorm x 
end; a ie 
repeat until keypressed; 
closegraph; 
TextMode(lastmode); 
end. 


ze 
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8.2 Das KAM-Theorem 


Das KAM-Theorem, benannt nach den russisch-deutschen Mathematikern Kolmogo- 
row (1954), Arnold (1963) und Moser (1973), löst ein Problem, das von Poincare 
aufgeworfen wurde. 


Die Bewegung eines konservativen Systems von N Freiheitsgraden kann in der klassi- 
schen Mechanik beschrieben werden durch eine Hamilton-Funktion H 


H = H(p,,Pa»---»Pn»91>92>:--»9n) 


dabei stellen die Variablen p, die Ortskoordinaten und q,die Impulse dar. In einigen 


Fällen, die man in jedem Lehrbuch der theoretischen Mechanik findet, können die 
Hamiltonschen Bewegungsgleichungen 


a 
I: dp,’ I 94, 
exakt integriert werden. Dies ist der Fall, wenn eine Variablen-Transformation 
(Pi Pa>---» Pn»91»92>-- An) > (Mofas: TmS1,82>-.-»5n) 
so ausgeführt werden kann, daß gilt 
El) en 
j 


Die Variablen s, heißen dann zyklisch. In den allermeisten Fällen ist dies jedoch nicht 


" möglich. 


Die von Poincar& aufgeworfene Fragestellung war: Angenommen, Hy ist eine inte- 


grierbare Hamilton-Funktion. Was läßt sich dann für die Lösungen eines gestörten 
Systems mit der Hamiltonfunktion 


H=H, +EeH,(p,,9;) 
aussagen, wenn der Parameterwert € als klein und somit eH, als kleine Störung an- 
gesehen werden kann? 


Das Verhalten des ungestörten Systems ist bestimmt durch die Gleichungen 


yaaare N el 

r,; = =05r, =const 
05; 
oH $ 

ie =0, 5, =0;1+5jo 
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Die Größen ®, werden in der Regel als Frequenzen interpretiert, die Bewegung ver- 
läuft hier auf den Phasenraum-Flächen r,=const, die als invariante Tori bezeichnet 
werden. Das KAM-Theorem besagt nun anschaulich, daß das Hamilton-System bei 
kleinen Störungen stabil bleibt bis auf schmale instabile Bänder, die einer Resonanz- 


frequenz des ungestörten und des gestörten Systems entsprechen. Ein Torus mit der 
ungestörten Frequenz @, und der gestörten Frequenz @,(&) überlebt bei größerwer- 


denden Störungen umso länger, je weniger das Frequenzverhältnis @,:@,(€) im ratio- 
nalen Verhältnis steht. 


8.3 Henon-Heiles-System 


Als Beispiel eines Hamilton-Systems werden die Gleichungen von Henon-Heiles be- 
sprochen, die 1964 in Astron. J. 69, 73 publiziert wurden. Die Hamilton-Funktion 
des Systems zweier galaktischer Cluster lautet 


H(P..92.9,n)=#{p + +g+2)+4m-1% 


Die Hamilton-Funktion dieses nicht-integrablen System ist nicht skaleninvariant, 
daher stellt die Energie E einen Bifurkations-Parameter dar. Es zeigt sich, daß sich für 


E =; geschlossene Bahnen ergeben. Für E =+ erhält man den Grenzfall, daß bereits 


einige Bahnen irregulär sind. Im Fall E = ist das Chaos fast vollständig. 


Gibt man die Startwerte (P}9,P30»410,920) VOL, so ist damit die (Gesamt)-Energie 


E= H(Pıo» P20-910:920) 
bestimmt. Nach dem Energiesatz ist E konstant und somit ein Integral der Bewe- 
gung. Zur Darstellung wählt man eine geeignete Poincar&-Abbildung. Die Bahnen 
liegen alle auf der 3-dimensionalen Energie-Hyperfläche E =H(p,q) als Unterraum 
des vierdimensionalen Phasenraums. Als Poincare-Abbildung betrachten wir die 
Durchstoßpunkte der Bahnen mit der ( P,,9,)-Ebene für =0am>0. 


Diese Bedingung führt nun dazu, daß alle Durchstoßpunkte innerhalb einer vorgege- 
benen Randkurve liegen, die vom Energiewert E abhängt. Diese Randkurven erhält 
man aus den Hamilton-Gleichungen hier für p, =q, =0. 
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Henon-Hailes-Systen: E=1/12 


Bild 8.3 Poincar&-Abbildung des 
Henon-Heiles-Systems für 


ana 
E=7 


liefern hier die Bewegungsgleichungen 

Ddı =-9- 249 

pt 

q,=Pı 

%=P, 
Das folgende Turbo Pascal-Programm heiles.pas erzeugt die Poincar&-Abbildung für 
den interessanteren Fall ir: Um verschiedene Bahnkurven zu erzeugen, wurden 
im Programm 10 verschiedene Anfangswerte (p10,P20,910,920) vorgegeben. Zusätzlich 
wird die Randkurve mittels einer separaten Prozedur geplottet (Bild 8.3). 
program heiles; 


{$N+} 
uses crt, graph; 


const t = 0.01; 

var x1,x2,x3,x4 : array[1l..12] of double; 
pl,p2,ql,q2,t2,t3,count : double; 
graphdriver,graphmode,j : integer; 


procedure randkurve; 
var x,y:double; 
begin 
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y:=-0.]; 
while y <= 0.5 do 
begin 
x := 1/6-y*y*(1+2*y/3); 
if x>0 then 
begin 
putpixel(320-trunc(500*y) ‚240+trunc(500*sqrt(x)),14); 
putpixel (320-trunc(500*y) ‚240-trunc(500*sgrt(x)),14); 
end; 
y := y+0.001; 
end; 
y.:=-0,55 
while y <= 0.1 do 
begin 
x := 1/6-y*y*(1+2*y/3); 
if x>0 then 
begin 
putpixe] (320-trunc(500*y) ‚240+trunc(500*sqrt(x)),14); 
putpixel (320-trunc(500*y) ,240-trunc(500*sqrt(x)),14); 
end; 
y := y+0.001; 
end; 
end; 


begin 

graphdriver := detect; 

Initgraph(graphdriver,graphmode, ''); 

cleardevice; 

rectangle(0,0,639,479); 

randkurve; 

moveto(8,8) ;outtext("Henon-Heiles-System: E=1/12'); 

t2) = TIb TI Seat, 

x1[2] := 0; x2[2J := sqrt(1/8); x3[2] := sqrt(1/24); x4[2] := 0; 
x1[3] := sqrt(1/18); x2[3] := sqrt(1/18); x3[3J := sqrt(1/18); x4[3] := 0; 
x1[4] := sqrt(1/12); x2[4] := sqrt(1/12); x3[4]:= 0; x4[4] := 0; 
x1[5] := 0; x2[5] := 0; x3[5] := sqrt(1/6);, x4[5] := 0; 

x1C6] := 0: x2[6] := 0; x3[61] := sqrt(13/270); x4[6] :=:1/3; 

x1[7] := 0; x2[7] := 0; x3[7] := sqrt(11/144); x4[7] := 0.25; 

x1[8] := sqrt(1/36); x2[8] := 1/3; x3[8] := sqrt(1/36); x4[8] := 0; 
x1[9] := sqrt(1/6); x2[9] := 0; x3[9] := 0; x4[9] := 0; 

x1[10] := sqrt(1/15); x2[C10] := 0; x3[10] := sqrt(1/10); x4[10] := 0; 
x1C11J := 0.1: x2[11] := 0; x3[011] := sqrt(47/300); x4[11] := 0; 
x1[12J := sqrt(11/75); x2[12] := 0.1; x3[12] := 0.1; x4[12] := 0; 


count := 0; 

for j:= 1 to 11 do 
begin 

while count <= 2000 do 
begin 


pl := xllj+1]; ql := x2Lj+1]; p2 := x3Lj+1]; q2 := x4Lj+1]: 
x1lj+1] := (t3*(2*p2*p2*p2+2*p2*g2*g2*q2+6*p2*q2+p2-4*pl*ql)+ 
t2*(-6*p2*q1-6*q2*p1-3*pl)+t*(-12*p2*g2-6*p2)+6*p1)/6; 
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nu, 


‚x2Lj+1] := (t3*(2*p2*p2*q2+3*p2*p2+2*q2*q2*q2-3*q2*q2+q2-2*pl*pl+2*ql*ql)+ 


t2*( -6*p2*p1+6*q2*q1-3*q1)+t*(-6*p2*p2+6*q2*q2-6*q2)+6*q1)/6; 
x3[Lj+1] := (t3*(-2*p2*ql-2*q2*p1-pl)+t2*(-6*p2*q2-3*p2)+t*6*pl+6*p2)/6; 
xAlj+1] := (t3*C-2*p2*p1+2*qg2*ql-ql)+t2*(-3*p2*p2+3*q2*q2-I*q2)+t*6*ql+6*q2)/6; 
if (p2*x3[j+1]<0) and (p2>0) then 
begin 
putpixel (round(500*x4[j+1])+320,240-round(500*x2[j+1]) ‚3); 
putpixel (round(500*x4[j+1])+320,240+round(500*x2[Lj+1)),J); 
end; 
count := count+tt; 
end; 
count := 0; 
end; 
repeat until] keypressed; 
closegraph 
end. 


8.4 Twist-Map 


Die von J. Moser eingeführte Drehabbildung, Twist-Map genannt, ist definiert durch 
die Abbildungen 


X%n+1 = X, C0Sa—y„sina 


Yarı = X, Sina+ y„ Cosa 


Diese Abbildung hat dieselbe Jacobi-Determinante wie die quadratische Henon- 
Gleichung im Ursprung. Die Twist-Map kann leicht in Polarkoordinaten (0,r) über- 
führt werden. Die Polarform lautet 

0,, =, +a mod2n 

Mn+1 = In 
Die Gleichungen zeigen, daß die radialen Abstände gleich bleiben und das Winkelar- 
gument bei jeder Drehung um a wächst. Die invarianten Kurven sind daher Kreise 
bzw. Tori. Ist a eine rationale Zahl, so wird irgendwann der Startpunkt der Bewe- 


gung wieder erreicht. Diese Bewegungen beschreiben die sog. rationalen Tori. Ent- 
sprechend findet die Bewegung bei irrationalem a auf den irrationalen Tori statt. 


Das KAM-Theorem besagt nun, daß bei einer kleinen Störung nur die irrationalen 
Tori erhalten bleiben, die hinreichend irrational sind. Hinreichend irrational heißt 
eine Zahl a hier, wenn die Ungleichung 


für alle natürlichen Zahlen m,n besteht mit u >22. 


N 
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hyperbolischer 
Punkt 


Bild 8.4 Schematischer Schnittes 
durch einen KAM-Torus nach 
Birkhoff 


Vernachlässigt man in der quadratischen Henon-Abbildung (Abschnitt 8.1) die Ter- 
me x”, so geht dieses System in die Twist-Map über. Dieses Henon-System und damit 
das zugehörige Hamilton-System kann somit als Störung des Twist-Systems aufgefaßt 


werden. Wegen der Störung sind die invarianten Kurven keine exakten Kreise mehr. 


Betrachtet man nun zwei Bahnen (r,,89),(r,,80), so werden die Bahnen i.a. nicht 


identisch sein. Wegen der kleinen Störung kann das System jedoch als konservativ 
angesehen werden; d.h. die Fläche zwischen den Bahnen bleibt konstant. 


Die Bahnen müssen sich daher schneiden. Es läßt sich zeigen, daß diese Schnittpunk- 
te abwechselnd hyperbolisch und elliptisch sind. Ein hyperbolischer Punkt ist dabei 
verbunden mit stabilen und unstabilen Mannigfaltigkeiten, ein elliptischer Punkt mit 
einer stabilen Mannigfaltigkeit in Form eines invarianten Torus. Vergleiche dazu Bild 
8.4, das nach einer Skizze von G. D. Birkhoff 1922 (also noch vor dem Computer- 
zeitalter) entworfen wurde. 


Wendet man die Theorie auf das quadratische Henon-System an, so zeigen sich für 
a<1.2 die ungestörten Kreise der Twist-Map. In der Nähe von a=13entstehen, we- 


gen a =5, fünf Inseln; am Rand erscheinen chaotische Bänder (vgl. Bild 8.1). 
Wächst a auf 1.58, so ist die Störung so groß, daß alle Kreise zerstört werden. Wegen 


— =4 erscheint hier eine 4:1 Resonanz (Bild 8.2). 
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8.5 Standard-Abbildung 


Bild 8.5 Standard-Abbildung für 
E.=1:0 


Die Standard-Abbildung (englisch standard map) ist definiert durch 

Kr Kan ty tEsin“, 

Yn+1 = In rE sin An 
Sie wurde von B. V. Schirikow als Poincar&-Abbildung eines periodisch angestoßenen 
Pendels eingeführt (Phys. Rep. 52,81979). Setzt man e=0, so hat das entstehende 
(ungestörte) System 

KAn+l = An + yn 

Yn+1 = In 


die Jacobi-Determinante eins. 


1 
detJ = 1 


0::1],,, 
Das System ist daher für e=0 konservativ. Plottet man das Phasendiagramm der 
Standard-Abbildung, so sieht man für kleine Werte von € , etwa e = 0.1172 deutlich 
die ungestörten Tori, die von x=0 bis x=2n verlaufen. Sie bestehen aus den nicht- 
resonanten Tori des ungestörten Systems. Steigert man den Parameterwert auf e =1.0 
bzw. € =18, so zerfallen die Tori des ungestörten Systems immer mehr. Man verglei- 
che dazu Bild 8.5 bzw. Farbtafel 15 und Bild 8.6). 
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Bild 8.6 Standard-Map für 
E=E8 


Es entstehen die Inseln der rationalen Frequenzen. Für € =4.0 herrscht Chaos. Hier 
haben nur die elliptischen Punkte der Periode Eins und der Periode Zwei 
(n ,0) <> (n,n) Bestand (Bild 8.7). 


Die Standard-Abbildung kann mittels des Quick Basic-Programms standard.bas ausge- 
führt werden. - 


'stdrd.bas 

'Standard-Abbi dung 

CONST k = 1! 

CONST pi = 3.141529653}: p2 = 2 * pi 


DIM i, j AS INTEGER 
DIM x, y, x1 AS SINGLE 
SCREEN 12: CLS 

WINDOW (0, 0)-(p2, p2) 


RANDOMIZE TIMER 
FOR j = 1 TO 250 
x = p2 * RND: y = p2 * RND 
FOR i = 1 TO 750 
xl=x+y+k* SIN 
y=y+k* SINox) 


x=xl 

IF x > p2 THENx = x - p2 
IF y> p2 THEN y=y - p2 
IFx<0OTHENx =x + p2 
IF y<OTHENy=y+p2 
PSET (x, y), 1 + j MOD 16 

NEXT i 
NEXT J 


LOCATE 27, 1: PRINT "Phasendiagramm der Standard Map" 
e$ = INPUT$(1): SCREEN O 
END 


2 


a ne 


E 
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Bild 8.7 Standard-Map für 
€ =4.0 


8.5 McKay-Abbildung 


Die McKay-Abbildung wurde in Period Doubling as a Universal Route to Stochasti- 
city, in Long-Time Prediction in Dynamics, (1983) publiziert. Die Abbildung ist ge- 
geben durch 


Xn+1 = —In +10) 
Yn+ı = &Knıı "SI Knrı) 
mit der Funktion f(x) = px-(1-p)x”. 


Für Ip <1 ist der Ursprung ein elliptischer Fixpunkt. Wird p<-1, so verliert der Ur- 


sprung seine Stabilität, und es gibt einen Zyklus der Länge 2. Die Periodenverdopp- 
lungen wiederholen sich bis zum Punkt 


p' =-1.2663117 


Das System von McKay kann als Störung der Abbildung 
x>-y 
yoXx 


mit der Störfunktion f aufgefaßt werden. 


Die Berechnung der Jacobi-Determinante zeigt, daß diese Abbildung konservativ ist: 


Il 
Jan 


a 
A, 
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McKay-Susten p=-0.98 


Bild 8.8 McKay-Abbildung für 
p=-0.98 


Für | p <1 bleiben die Tori der ungestörten Abbildung gemäß Bild 8.8 erhalten. 
Fürp<-1 kommt es zur Störung der invarianten Kurven (Bild 8.9), für immer kleiner 
werdendes p kommt es zum Chaos. 


McKay-Systen p=-1.04 


Bild 8.9 McKay-Abbildung für 
p=-1.04 


Die McKay-Abbildung kann mit dem Turbo C-Programm mckay.c ausgeführt werden. 
/* mckay.c */ 


iHinclude <stdio.h> 
#include <graphics.h> 


un nn ee en nen nn ee nt nn nr ee N u ud „nn od 
ge N sn GE EN EEE 
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#include <conio.h> 
#include <stdlib.h> 
#Hinclude <time.h> 
#Hinclude <math.h> 


const double p=-0.98; 


void main(void) 

{ 

int a,b,i,.j; 
double x,y,x1; 
time_t now; 

int gdriver,gmode; 


gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 

srand((unsigned) time(&now) % 4001); 


for (j=1; j<=75; j++) 
{ 
x = 0.1*rand()/32768.-0.1; 
y = 0.1*rand()/32768.-0.1; 
for (i=1; i<=12000; i++) 
{ 
xl = -y+p*x-(1-p)*x*x; 
y = x-p*x1+(1-p)*x1*x1; 
x=xl; 
if ((fabs(x)>1) || (fabs(y)>1)) break; 
a = floor(1000.*x+0.5); b = floor(2000.*y+0.5); 
putpixel(a+350,240-b,1+j % 16); 
) 
} 
moveto(10,10) ;outtext("McKay-System p=-0.98"); 
do {} while(!(kbhit())); 
closegraph(); 
return; 
} 


8.6 Ergänzungen 


Übung 8.6.1 
Von M. Feigenbaum (Universal Behavior in Nonlinear Systems, Los Alamos Science 


1, 1980) stammt das System 


- 2 
Knıl "In *n 
Yn,] Zat+bx, 
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Feigenbaun-Systen 


Bild 8.10 Feigenbaum-System 
für a=0.1,b=-1 t 


Das System ist für b=-1 konservativ. Realisieren Sie die Abbildung für «= 0.1; b=-1 
mittels eines Computer-Programms (feigsys.bas). 


Übung 8.6.2 


Erstellen Sie ein Programm (kamtorus.pas), das die Schnitte durch den KAM-Torus 
des quadratische Henon-System in 3D-Darstellung ausgibt. Das Ergebnis zeigt Farb- 
tafel 5. 


9 Iterative Systeme 


9.1 Sinai-Gleichungen 


Die von Yaschi G. Sinai 1972 (Introduction to Ergodic Theory, Princeton Press 
1972) angebenen Gleichungen lauten 


Kerry, t - cos(?2ry,) modl 


Ya X, +2), modl 


Bild 9.1 Phasen-Plot des Sinai- 
Systems mit g=1 


Sinai konnte zeigen, daß für kleine Werte von g jeder Punkt des Einheitsquadrats 
mit gleicher Häufigkeit aufgesucht wird. Somit stellt das ganze Quadrat [0;1]x[0;1] 
einen Attraktor dar. Der Phasenplot des Sinai-Systems hat Ähnlichkeit mit der 
Faserstruktur von Holz. Das Sinai-System kann als Störung der im nächsten 
Abschnitt behandelten Katzen-Abbildung aufgefaßt werden. 


9.2 Katzen-Abbildung 
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Die Sinai-Abbildung kann mit dem Turbo Pascal-Programm sinai.pas erzeugt werden. 


program sinai; 
uses crt,graph; 


const g=l; p2 = 2*pi; 

var x,y,x1,yl: real; 
i : longint; 
Graphdriver,,Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode,' '); 
SetgraphMode(Graphmode); 
setbkcolor(6); 
rectangle(0,0,639,479); 


randomize; 
x := random; y := random; 
for i:=1 to 50000 do 


begin 
xl := x+y+g*cos(p2*y)/p2; 
yl := xt+t2*y; 


x := frac(xl); y := frac(yl); 
putpixel (round(640*x) ‚round(480*y),14); 
end; 

repeat until keypressed; 

closegraph; 

textmode(lastmode) 

end. 


9.2 Katzen-Abbildung 


Die Sinai-Gleichungen gehen für g=0 in die sog. Katzen-Abbildung (englisch cat 


map) über 


An+l =Xntyn |ioaı 
Yn+l =x,+2y, 


Das System wurde 1967 von’D. V. Anosow publiziert, ist aber erst 1968 populär 
geworden durch die Interpretation von Arnold und Avez als Katzen-Abbildung. Diese 
Abbildung gab dem System den Namen (Bild 9.2). Das System ist konservativ wegen 


der Jacobi-Determinante 
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Bild 9.2 Katzen-Abbildung 
(Cat Map) 


Die Eigenwerte ergeben sich aus der charakterischen Gleichung 


| 34,5. Ra 


| det(J- uE)=y?-3u +1 zu u, = 5 m 
1 


Bild 9.3 Iterierte der Katzen- 
Abbildung 
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Die Ljapunow-Exponenten sind die zugehörigen Logarithmen 
% =0962; % =-0.962 


Der Ursprung stellt einen Sattelpunkt dar; d.h. er ist hyperbolisch. Wie man dem Bild 
9.3 entnimmt, wird das Einheitsquadrat bei der iterierten Abbildung gestaucht und 


gefaltet. Dies ist ein typischer Weg ins Chaos; wie z.B. ein Farbklecks sich beim 
Umrühren verhält. 


Die Graphik kann mit dem Quick Basic-Programm cat.bas erzeugt werden. 


'cat.bas 
'Die ersten 3 Iterierten ‘der Katzen-Abbildung 


DIM x, x1, x2, x3, y, yl, y2, y3 AS SINGLE 
DIM c AS INTEGER 


SCREEN 12: CLS 

WINDOW (0, 0)-(3.4, 2.8) 
LINEA%6, VITA EB 
LINE :C.6,5.2:4):(1.6.,2-4)@2B 
LINE .(1.9,,1.4)-62.92224),5.26 
LINE (1.9, »2)=02.9,21-2)9.20026 
LOCATE 2, 33: PRINT "Cat-Map* 


FOR x = 0 TO 1 STEP .005 
FOR y = 0 TO 1 STEP .005 
c= INTy*5) +1 
PSET (x + .6, y + 1.4), c 
ıl=ext+ty 
y)l=x+2%*y 
xl = xl - INT(x1): yl = yl - INT(yl) 
PSET (x1 + 1.9, yl + 1.4), c 
x2=x1l+yl 
yarmıxla #3280yl 
x2 = x2 - INT(x2): y2 = y2 - INT(y2) 
PSET (x2 + .6, y2 + .2), C 
x3 =x2 +y2 
y3=x2+2%*y2 
x3 = x3 - INT(x3): y3 = y3 - INT(y3) 
PSET. :(x3. +19. y38 47.2) € 
NEXT y 
NEXT x 
= INPUT$(1): SCREEN 0 
END 


u 


122 9 Iterative Systeme 


9.3 Bäcker-Abbildung 


Baker-Abbildung 


Bild 9.4 Die ersten 3 Iterierten 
der Bäcker-Abbildung 


Die Bäcker-Abbildung (englisch baker map) liefert einen ähnlichen Weg ins Chaos 
wie die Katzenabbildung. Sie ist benannt nach der Tätigkeit eines Bäckers, der den 
Teig in ähnlicher Weise breitwalzt und faltet. Die Gleichung ist gegeben durch die 
Zuordnung 


| 2x, für0<x,<05 
nt” \2x,-1 für0s<x,<i 
| 05y, für0<x,<05 
In \05y,+1) für05<x,<1 
Wie man sieht, wird das Einheitsquadrat in x-Richtung um den Faktor 2 gestreckt 


und in y-Richtung um den Faktor 2 gestaucht. Durch die Modulo 1-Bildung wird das 
Ergebnis wieder auf das Einheitsquadrat abgebildet. 
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9.4 Hufeisen-Abbildung 


Bild 9.5 Iterierte der Hufeisen- 
Abbildung 


Die Hufeisen-Abbildung (englisch horse shoe map) wurde 1967 von S. Smale als Weg 
in das Chaos erdacht, um als Phasenraum-Modell des Van der Pol-Attraktors zu 
dienen. Ähnlich wie bei der Bäcker-Abbildung, wird hier das Einheitsquadrat in X- 
Richtung um den Faktor 2 gestaucht und in y -Richtung um den Faktor 2 gestreckt. 
Sodann wird der dünne Streifen in der Mitte abgeknickt und zu einem Hufeisen 
gebogen. 


Ursprünglich hatte Smale gehofft, alle dynamischen Prozesse durch Dehnen und 
Stauchen beschreiben zu können. Zu seiner Enttäuschung zeigte es sich jedoch, daß 
auf den Prozeß des Faltens nicht verzichtet werden konnte. 


Für seine Abbildung gab er keine explizite Formel an; jedoch liefert die von ihm 
geschaffene symbolische Dynamik den notwendigen Formalismus. Eine Darstellung 
der symbolischen Dynamik ist im Rahmen des Buches nicht möglich; eine schöne 
Einführung findet man bei Devaney [06]. 


Eine konkrete Hufeisenabbildung wurde von H. Lauwerier in A case of a not so 
strange strange attractor, Report Amst. Centre Math. Comp. Sci. AM-R8402 (1984) 
angegeben. Das Einheitsquadrat wird damit auf ein hufeisenförmiges Gebilde 
innerhalb des Quadrats abgebildet. Die Abbildung lautet 


An+l =4x,-2y,)+yn 
Yn+l — 4y„(1-yn) 


Wie man sieht, kann das System als Verallgemeinerung der logistischen Gleichung 
aufgefaßt werden. Die ersten 3 Iterierten der Lauwerier-Abbildung können dem Bild 
9.6 entnommen werden. 


Die Bildschirmabbildung kann mit dem Quick Basic-Programm hufeis.bas erstellt 
werden. 


124 9 Iterative Systeme 


Hufelsen-Abblldung 


Bild 9.6 Iterierte der Lauwerier- 
Hufeisen-Abbildung 


‘hufeis.bas 
'Hufeisen-Abbildung von Lauwrier 


DIM x, x1, x2. x3, y, yl, y2, y3 AS SINGLE 

DIM c AS INTEGER 

SCREEN 12: CLS 

WINDOW (0, 0)-(3.4, 2.8) 

[MNE (6, 22) (1.6,°1.2),,:B 

LINE (.6, 1.4)-(1.6, 2.4), „ B 

LINE (1.9, 1.4)-(2.9, 2.4), „ B 

UNE (179, ..2)-02:95:1.2),:.0B 

LOCATE 2, 23: PRINT "Hufeisen-Abbildung und Iterierte" 


FOR x = 0 TO 1 STEP .001 
FOR y = 0 TO 1 STEP .001 
c = INT(y*5) +1 
PSET (x + .6, y + 1.4), c 
xl=x7/3* (1-2*y) + y: 'l.Iterierte 
yl= 4A yarsl177;Y) 
PSET (x1 + 1.9, yl + 1.4), c 


x2=x1/3*(1-2%*yl) + yl: '2.Iterierte 
y2=4*y1*(1:.- y]) 
PSET (x2 + .6, y2 + .2), c 
x3=x2 1 3* (1 - 2% y2) + y2: '3.Iterierte 
y3=4*y2* (1 - y2) 
PSET (x3 + 1.9, y3 + .2), c 

NEXT y 

NEXT x 

e$ = INPUT$(1): SCREEN 0 


END 
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9.5 Martin-Abbildung 


Die von B. Martin von der Aston University (Birmingham) angegebene Abbildung, 
publiziert u. a. in dem Band Graphic Potential of Recursive Functions, in Computers, 
Design and Animation, Springer 1989, hat die Form 


KAn+l "In sgn(x,) lbx, Z d 
Yn+ı TAT %n 


Die Formel von Martin ist durch einen Artikel im Scientific American bekannt 
geworden. Sie liefert für verschiedene Werte der Parameter a,b,c eine Vielzahl von 
verblüffenden Mustern. Geeignete Parameterwerte finden sich in: Computer- 
Kurzweil, Spektrum d. Wissenschaft, 9 (1986). Ein schönes teppichähnliches Muster 
erhält man, z.B., für a= 200, b=0.1,c=-80 (siehe Bild 9.7 und Farbtafel 7). 
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Bild 9.7 Martin-Abbildung für 
a=-200, b=0.1,c = - 80 


Die Abbildungen wurden mit dem Basic-Programm martin.bas erstellt. 
'martin.bas 


CONST a = -200: b = .1: c = -80: "Parameter 
DIM x, y, x1 AS DOUBLE 
DIM i AS LONG 


SCREEN 12: CLS 
WINDOW (-510, -440)-(330, 240) 
LINE (-510, -440)-(330, 240), „ B 


x=.,4y=.3 


FE EP WERE 


Ei Pe PETE EEE EEE FREE 


Ser Zn un 992505 2 |. Dinar Lfd FE Bez he u Er 
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T———————————————— 


FOR i = 1 TO 140000 
xl = y - SGN(x) * SQR(ABS(b * x - c)) 


Yı=ıa) X 

x=xl 

PSET (x, y),. 1 + i \ 10000 
NEXT i 
e$ = INPUT$(1): SCREEN 0 


END 


Bild 9.8 Martin-Abbildung für a 
= -3.14,b = 0.3,c = 0.3 


9.6 Mira-Abbildung 


Die Mira-Abbildung war das Tagesgespräch der IFIP-Conferenz von 1974 in 
Stockholm. Sie ist publiziert in dem Konferenz-Band: Gumowski 1./ Mira C.: Point 
sequences generated by two-dimensional recurrences, IFIP 1974, North Holland. 


Die Abbildung hat die Gleichung 
x, =by„+F(@&,) 
Yntı nt F(X%41) 


Dabei ist F die Funktion 
2 


F(x)=ax-(l-a) 2 


< 


ell 


ww 
'®) 
[o) 
— 
er 
on 
je 
7 
- 
#7] 
KB} 
io) 
z 
c 
© 
c 
S 
@, 
\w 


Tafel 3: Magnetisierun 


Tafel 1: Ljapunow-Diagramm der Kreisgleichung 


Tafel 2: Ljapunow-Diagramm der Gleichung x = 2.5sin‘2(x+r) 
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Tafel 7: Martin-Abbildung für a 
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D-Darstellung eines KAM-Torus 
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fel 6: 3D-Farnblätter nach Barnsley 


a 


I 


Tafel 11: 


| 


Tafel 9: Julia-Mengen der Gleichung z*3-1=0 


Tafel 10: Quadr.Henon-Abbildung für a=1.35 
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Tafel 14: Riemann-Projektion 


9.6 Mira-Abbildung 0 0 N 


Bild 9.9 Mira-Abbildung für 
=0.4, b=1.0 


Auch hier findet sich eine verblüffende Vielzahl von Mustern. Gute Parameterwerte 
wurden von H. Lauwerier in [12] angegeben. Die Mira-Abbildung kann mit dem 
Turbo C-Programm mira.c ausgeführt werden. 


/* mira.c */ 
/* Abbildung von Mira & Gumowski */ 


#Hinclude <stdio.h> 

#Hinclude <graphics.h> 
#Hinclude <conio.h> 

const double a=-0.48,b=0.93; 
double f(double); 


void main(void) 

( 

long int ji; 

double x,x1,y; 

int gdriver,gmode; e 
gdriver = 9; gmode = VGAHI; /* \VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 


x=4,;,y=0.;; 
for (i=1; i<=120000L; i++) 
{ 
xl = by + fi); 
y=-x+f(xl); 
x=xl; 
putpixel (350+Cint)(x*26.0) ,280-(int)(y*26.0), 1+Cint) (i/10000)); 
} 
do {} while(!(kbhit())); 
closegraph(); 
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return; 
} 


double f(double x) 
{ 
return a*x-(1.-a)*2.*x*x/(1.+x*x); 


} 


9.7 Pickover-Abbildung 


Bild 9.10 Mira-Abbildung für 
a=-0.4.8, b=0.93 


Die Pickover-Abbildung ist durch Diskretisierung einer partiellen Differen- 
tialgleichung entstanden. Wegen ihrer orginellen Form erhielt sie den Namen 
Popcorn. Das System lautet 


X = X, — h(siny, +tany,)) 
Ya+ı = In h(sinx, +tan(3x,)) 
Die Größe des Popcorn-Gitters ist durch den Diskretisierungsparameter h des 
Differentialgleichungs-Systems gegeben. Realisieren Sie die Graphik für h=0.05 als 


Übung 9.8.1 (vgl. Bild 9.11). Die Abbildung ist ebenfalls durch einen Artikel im 
Scientific American bekannt geworden. 
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9.8 Ergänzungen und Anregungen 


Es gibt eine Vielzahl von Iterativen Systemen, die interessante Muster oder 
Attraktoren erzeugen. Einige davon sollen als Übungen erstellt werden. 
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Bild 9.11 Popcorn von Pickover 


Bild 9.12 Kakadu-Abbildung 
mita=0.7,b=123;c=021 


Übung 9.8.1 
Realisieren Sie die Popcorn-Abbildung von Clifford Pickover am Rechner (Programm 
popcorn). 
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Übung 9.8.2 
Die Abbildung 
X = 9 1+ sin(ax,))—b 


An 


Inıı TEA, 
stammt ebenfalls von B. Martin. Sie hat den Spitznamen Kakadu-Abbildung (The 
cockatoo, in Math.Intelligencer 9, 1987). Erstellen Sie dazu ein Programm kakadu! 
(Bild 9.12) 


Übung 9.8.3 
Die Abbildung 


Kn+l =1-y, +, 


In+l ” An 


erzeugt den sog. Pfefferkuchen-Mann (englisch gingerbread man). Die Gleichung 
wurde von L. Devaney in seinem Artikel Chaotic dynamical systems in The Science 
of Fractal Images [23], angegeben. Realisieren Sie die Abbildung am Bildschirm (Bild 
9.13). Diese Abbildung ist besonders sensitiv abhängig von den Startwerten. 


Bild 9.13 Gingerbread Man 


Übung 9.8.4 
Die Abbildung 


X, = Sin(ay„)— cos(bx,) 


Y„+,] = Sin(cx,)— cos(dy,) 
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stammt von P. de Jong und ist ein Spezialfall des unten beschriebenen Pickover- 
Attraktors. Die Formel stammt aus dem Artikel Computer-Kurzweil, Spektrum d. 
Wissenschaft 10, (1987). Realisieren Sie die Graphik für die Parametermengen 
(Programm jong) 


a=2.01,b=-253, c=1.61,d=-033 bzw. a= 2.24, b= 0.43, c=-0.65,d=—2.43. 


Übung 9.8.5 

Der (mutmaßliche) Pickover-Attraktor ist gegeben durch das System 
X,4] = Sin(ay„)-— z, cos(bx,) 
Yn+ı = Z, SiN(cx,)— Ccos(dy,) 


Zn+l — sin An 


Es findet sich in Pickovers erstem Buch Computers, Pattern, Chaos and Beauty, St. 
Martin’s Press (1990). Wählen Sie die Parameterwerte 


a=224,b=0.43,c=-0.65,d=-2.43 


und projizieren Sie den Attraktor in die xy- bzw. yz-Ebene (Programm pickovr). 


Übung 9.8.6 

Der (mutmaßliche) Lauwerier-Attraktor ist gegeben durch die Gleichungen 
An+ı 7 In 
Yn+l "An In t+aX,yn - by, 


Erzeugen Sie ein Bild des Attraktors für a=3,b=2 (Programm lauwer). 


Übung 9.8.7 


Die Abbildung von Kaplan-Yorke wurde publiziert in Chaotic Behavior of 
Multidimensional Difference Equation (in Lectures Notes in Mathematics 730, 
Springer 1979). 


X = 3x, modl 


Yn+1 = Qy, +2cos(2nx,) 
Erzeugen Sie ein Bild des (mutmaßlichen) Attraktors für a=0.25. Der Attraktor liegt 
2 
für |a|< 1 in dem Bereich I» < 1 (Programm kaplan). 


10 Das Chaosspiel 


Das von M.Barnsley gefundene Chaosspiel soll an einigen Beispielen erklärt werden. 


10.1 Sierpinski-Dreieck 


Das Chaosspiel für das Sierpinski-Dreieck funktioniert folgendermaßen. Zuerst wählt 
man die Eckpunkte A,B,C des Dreiecks geeignet. Dann startet man mit einem 
beliebigen Punkt x; des Bildschirms. Als nächstes wird ein zufälliger Eckpunkt des 
Dreiecks gewählt; z.B. C. Der Mittelpunkt der Strecke von x,nach C wird am 
Bildschirm als Punkt x, markiert. Erneut wird ein neuer Eckpunkt, z.B. B ausgelost. 
Der Mittelpunkt der Strecke von x, nach B wird ebenfalls als Punk x; markiert. Das 
Verfahren setzt sich in der angegebenen Weise fort: Jeweils vom zuletzt markierten 
Punkt wird der Mittelpunkt der Strecke zu einem zufällig ausgewählten Eckpunkt 
markiert. Der Vorgang endet, wenn eine genügend große Zahl von Punkten gesetzt 
ist. Die Gesamtheit aller gesetzten Punkte bildet dann die gesuchte Punktemenge; bei 
diesem Beispiel entsteht ein Sierpinski-Dreieck. 


Bild 10.1 Chaosspiel 
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Das Turbo C-Programm sierp.c führt das Chaosspiel für das Sierpinski-Dreieck aus. 


Die Koordinaten des Dreiecks sind im Programm für VGA-Auflösung so vorgegeben, 
daß die Spitze oben liegt. 


/* sierp.c */ 
/* Erzeugung des Sierpinski-Dreiecks mittels Chaos-Spiel */ 


#Hinclude <stdio.h> 
#Äinclude <math.h> 
#Hinclude <graphics.h> 
#Hinclude <conio.h> 
#Hinclude <stdlib.h> 
#Hinclude <time.h> 


void main(void) 

( 

long int i; 

int P,X,y; 

time_t now; 

int gdriver,gmode; 

gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 

srand((unsigned) time(&now) % 4001); 


x=y=0; 
for (i=1L; i<=120000L; i++) 
| 
p = rand() % 3; 
switch(p) 
| 
case 0: x /= 2; y = (y+479)/2; break; 
case 1: x = (x+320)/2; y /= 2; break; 
case 2: x = (x+639)/2; y = (y+479)/2; 
) 
if (i>20) putpixel(x,y,2*p+10); 
} 
moveto(1,3);outtext("Sierpinski-Dreieck"); 
moveto(1,13) ;outtext("mittels Chaos-Spiel"); 
do {} while(!(kbhit())); 
closegraph(); 
return; 
} 


u 
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Sierpinsk i-Dreieck 
mittels Chaos-Spiel 


% AB 
A A A 


y. 
nA Ar Bi 


"v. Bild 10.2 Mittels Chaosspiel 
Er  erzeugtes Sierpinski-Dreieck 


10.2 Menger-Teppich 


Das Chaosspiel für den Mengerteppich, auch Sierpinski-Teppich genannt, ist etwas 
komplizierter, da hier keine rotationssymmetrische Figur vorliegt. Da das mittlere 
ausgeschnittene Quadrat insgesamt 8 Nachbarn hat, muß der Übergang zum 
ausgelosten Nachbarquadrat koordinatenmäßig vorgegeben werden. Hinzu kommt 


noch die Stauchung auf + der Quadratlänge. Das jeweils besuchte Quadrat wird im 


Programm mittels Zufallszahl ausgewählt. 


Menger-Teppich mittels Chaos-Spiel 


Bild 10.3 Menger-Teppich 
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Das folgende Quick Basic-Programm menger.bas erzeugt mittels Chaosspiel den 
Mengerteppich. 


'menger.bas 
'Menger-Teppich mittels Chaos-Spiel 


DIM r AS INTEGER 
DIM i AS LONG 
DIM x, y AS SINGLE 


SCREEN 12: CLS 
WINDOW (-1.6, -1.2)-(1.6, 1.2) 
EINE-C-1.6,0- 1. - (10, BVZ) 


RANDOMIZE TIMER 
x=1:y=1l 
FOR i = 0 TO 200000 
r = 1 + INT(8 * RND) 
SELECT CASE r 


CASE 1: x = (x +2) / 32 y=(y+2) /3 
CASE 2: x = (x +2) / 3: y=(y-2)/3 
CASE. 3: X (E23 ya yerZIE 5 
CASE 4: x = (x. - 2) 7 32 y=(y = 2/3 
CASE 5: x = (x +2) / 3: y=yol3 
CASE 6: x= (x - 2) / 3: y=yF/3 
CASE 7: x=x/ 3: y=(y+2)/3 
CASE 8: x=x / 3: y=(y-2)/3 
END SELECT 
PSEIN XS YET, 

NEXT i 


LOCATE 2, 2: PRINT "Menger-Teppich mittels Chaos-Spiel" 
e$ = INPUT$(1): SCREEN O0 
END 


10.3 Dürer-Fünfeck 


Als Beispiel für eine drehsymmetrische Figur soll das Dürer-Fünfeck mittels 
Chaosspiel erzeugt werden. Das Dürer-Fünfeck findet sich in dem Werk Dürers 
Unterweisung der Messung von 1525. 


Das Chaosspiel funktioniert wie beim Sierpinski-Dreieck. Nur wird hier nicht der 
Mittelpunkt der Verbindungsstrecke zum ausgelosten Eckpunkt gewählt, sondern der 
Punkt mit der Entfernung 62.4%. 


Das Bild 10.4 wuirde mit Hilfe des Turbo Pascal-Programms duerer.pas erzeugt. Die 
Eckpunkte des inneren Fünfecks sind für die VGA-Auflösung im Programm 
vorgegeben. 
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Bild 10.4 Dürer-Fünfeck mittels 
Chaosspiel. 


program duerer; [ Dürer-Fünfeck mittels Chaos-Spiel } 


uses crt,graph; 


const N = 0.624; 

var P,X,XPp,y.,yp : integer; 
Graphdriver,Graphmode : integer; 
i : longint; 


begin 

GraphDriver := 9; 

GraphMode := VGAHi; { VGA-Modus 640 x 480 } 
Initgraph(GraphDriver ,‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 


randomize; 
x:=0;y:=0; 
for i := 1 to 120000 do 
begin 
p := random(5); 
case p of 
0: begin xp := 320; yp := 40 end; 
begin xp := 510; yp := 178 end; 
begin xp := 438; yp := 402 end; 


202; yp := 402 end; 
130; yp := 178 end 


1: 

23 

3: begin xp : 
4: begin xp : 
end; 


% ;= x + round((xp-x)*N); 

y := y + round((yp-y)*N); 

if i>20 then putpixel(x,y,p+10); 
end; 


moveto(3,3) ;outtext(’Dürer-Fünfeck mittels Chaos-Spiel'); 
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repeat until keypressed; 
closegraph; 
textmode(1astmode) 

end. 


10.4 Drehsymmetrisches Sechseck 


Diese Variante des Chaosspiels liefert drehsymmetrische Sechsecke, die im Inneren 
die Schneeflockenkurve von Koch begrenzen. 


Bild 10.5 Drehsymmetrisches 
Sechseck mit eingeschlossener 
Schneeflockenkurve 


Das Chaosspiel funktioniert hier wieder wie beim Abschnitt 10.1. Jedoch wird von 
der jeweiligen Verbindungsstrecke nicht der Mittelpunkt, sondern der Punkt mit der 
Entfernung 66.7% gewählt. Dies entspricht dem Teilungspunkt im Verhältnis 2:1. 
Zeitler [40] gibt die fraktale Dimension des Sechsecks mit 


p=.°% _ 16309 
13% 


an. Das Vorgehen wird durch das Quick Basic-Programm crystal6.bas realisiert. Die 
Koordinaten des Sechsecks sind wieder für VGA-Auflösung vorgegeben. 


' erystal6.bas 


CONST N = „667 

DIM p AS INTEGER 

DIM i AS LONG 

DIM x, y, xp, yp AS SINGLE 


SCREEN 12: CLS 
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Te 


LINE (0, 0)-(639, 479), „ B 


RANDOMIZE TIMER 
x=0:y=0 
FOR i = 1 TO 100000 
p = INT(RND * 6) 
SELECT CASE p 
CASE 0: xp = 320: yp = 40 
CASE 1: xp = 508: yp = 137 
CASE 2: xp = 508: yp = 334 
CASE 3: xp = 320: yp = 430 
CASE 4: xp = 132: yp = 334 
CASE 5: xp = 132: yp = 137 
END SELECT 
x=x+(xp-x)*N:y=y+(yp-y) *N 
IF i > 10 THEN PSET (x, y), p + 9 
NEXT i 
a$ = INPUT$(1): SCREEN 0 
END 


10.5 Beispiel einer Kreisinversion 


Neben den bisher genannten affinen Abbildungen kann auch die Kreisinversion beim 
Chaosspiel verwendet werden. Das folgende Basic-Programm schnecke.bas verknüpft 


eine Drehstreckung mit dem Fixpunkt (2l0), Drehwinkel & =45° und 


Streckungsfaktor c=0.9 mit einer Kreisinversion. Dabei wird die Drehstreckung mit 
80% Wahrscheinlichkeit ausgeführt, die Kreisinversion entsprechend mit 20% 
Wahrscheinlichkeit. 


‘schnecke.bas 
‘Chaosspiel mit Kreisinversion 


CONST PI = 3.14152653 

CONST c = .9: 'Kontraktionsfaktor 
CONST alpha = PI/4: 'Drehwinkel 
DIM a, b, x, x1, y AS SINGLE 

DIM i AS INTEGER 


SCREEN 12: CLS 
WINDOW (-.6, -1.8)-(4.2, 1.6) 
RANDOMIZE TIMER 


a= c * C0S(alpha): b = c * SIN(alpha) 
x=2:y=0 
FOR i = 1 TO 32000 
IF RND < .8 THEN 
ıl=x 
KeatkxcbtynZ2n2#a 
yieb# xl.r at y’- 27% 


Use KErEXEr y* y 
xx (UL y Aya/aug 
END IF e 
PSEE:UEHJIDISF U 
NEXT i 
a$ = INPUT$(1): SCREEN O 


| Den ana Hi 


var) 


11 Fraktale Kurven 


11.1 Länge von Küstenlinien 


1967 fand Mandelbrot die Untersuchungen von L. F. Richardson über die Länge von 
Grenz- und Küstenlinien, die dann zum Ausgangspunkt seiner neuen fraktalen Geo- 
metrie wurden. Richardson hatte herausgefunden, daß die Messungen der Küstenlän- 
gen deutlich von der Größe des gewählten Zirkelschritts (bei Mandelbrot Eichlänge 
genannt) abhängig war. Für diese Abhängigkeit hatte er ein Exponentialgesetz aufge- 
stellt. Ist s der gewählte Zirkelschritt, mit dem die Küste abgegriffen wird, so ergibt 
sich die Länge L(s) nach dem Gesetz 


L(s)=as'? 


E 
R4 
B= 
® 
© 
c 
0 
4 


100 
Maßstab in km Bild 11.1 Küstenlängen nach 
Lewis Richardson 


Das Bild 11.1 zeigt die Messungen für die englische Küste und die Grenze des deut- 
schen Reichs von 1910 in einem doppelt-logarithmischen Koordinatensystem. Daraus 
läßt sich über die Steigung die fraktale Dimension zu D=126 bzw. D=1.16 berech- 
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nen. Der Wert D=1.26 für die englische Westküste korrespondiert nahezu mit dem 


Ind 
Wert D= 7, = 1.262 für die Schneeflockenkurve, wie in Abschnitt 11.8 gezeigt wird. 


11.2 Die fraktale Dimension 


Verlängert man eine Strecke der Länge Lauf das k -fache, so ist die resultierende 
Strecke von der Länge 


L’=kL 


Vergrößert man die Seiten eines Quadrats der Fläche Aauf das k -fache, so entsteht 
ein Quadrat der Fläche 


A'=k’A 
Analog ergibt sich das neue Volumen eines Würfels zu 
V’=k’V 


wenn man die Länge seiner Kanten auf das k -fache streckt. Somit folgt in jeder Eu- 
klidischen Dimension Dfür ein beliebiges Objekt das Gesetz 


S’=kPS 


wobei S die Maßzahl für die jeweilige Länge, Fläche bzw. das Volumen ist. Gilt für 
das resultierende Objekt 


$’=NS 
so folgt durch Einsetzen und Logarithmieren 
Nor op 
5 lak 


Diese Formel, die für die Euklidschen Dimensionen 1 bis 3 erklärt wurde, soll nun 
auch auf beliebige fraktale Objekte angewandt werden. Da das Verhältnis zweier 
Logarithmen i.a. nicht ganzzahlig ist, erhält man nach der neuen Definition reelle 
Maßzahlen für die Dimension. Der so definierte Dimensionsbegriff wird nach Vor- 
schlag von Mandelbrot fraktal genannt. 

Ein Objekt heißt selbstähnlich, wenn es bei der Teilung der Kanten in r gleiche Ab- 
schnitte in N gleiche Teile zerfällt. In diesem Fall gilt für den Streckfaktor k=t und 


die fraktale Dimension läßt sich schreiben als 
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a ———ee ee) 


Umformen liefert Din!= In[2)” -1nNoder nach dem Delogarithmieren Nr? =1. Ist 


das Objekt nicht selbstähnlich, so kann diese Form nicht direkt angewandt werden. 
Man muß dann den Grenzwert 


._InNk) 
x r—0 In! 


bilden. Dieses Maß entspricht der Box-Counting-Dimension, die ein Spezialfall der 
Hausdorff-Besikowitch-Dimension ist. 


11.3 Die Cantor-Menge 


Als einfaches Beispiel wird die Cantor-Menge behandelt. Dies ist eine Menge von 
reellen Zahlen, benannt nach dem deutschen Mathematiker und Begründer der Men- 
genlehre, Georg Cantor. Sie entsteht durch einen Grenzprozeß aus der Einheitsstrecke 
[0;1]. Zuerst entfernt man das mittlere Drittel des Intervalls, dann vom ersten und 
dritten Drittel wieder das mittlere Drittel und so fort. Dieses Verfahren wird unend- 
lich oft fortgesetzt. Die verbleibenden Zahlen der Einheitsstrecke stellen die Cantor- 
Menge dar. 


Bild 11.2 Cantormenge 


Das Bild 11.2 kann mit dem Quick Basic-Programm cantor.bas erstellt worden. We- 
gen der beschränkten Punktezahl des Bildschirms können nur die ersten Schritte des 
Cantorschen Drittelungsverfahren veranschaulicht werden. 
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Tr ———————— 


'cantor.bas 
"Cantor -Menge 


CONST dx = 1 / 640 
DIM i, j, p, q AS INTEGER 
DIM x, x1, y AS SINGLE 


SCREEN 12: CLS 
LINE (0, 0)-(639, 479), „ B 


FOR i =0T04 
LINE (20, 50 + i)-(620, 50 +1), 1 
NEXT i 
FOR j = 0 TO 639 
x=j* Kaxl=x 
FOR i=1T06 
y= 3% (.5 -ABS(x - .5)) 
Kiery 
IF (x >= 0) AND (x <= 1) THEN 
p = x1 * 600 + 20: q = 50 * i + 50 
FOR k=0T0 4 
PSET?(P, g-+:K 71 
NEXT k 
END IF 
NEXT i 
NEXT j 
LOCATE 27, 35: PRINT "Cantor-Menge" 
e$ = INPUT$(1): SCREEN 0 
END 


Bei einer Drittelung, d.h. bei einem Streckfaktor k z zerfällt die Cantor-Menge in 
N =2 selbstähnliche Teile. Die fraktale Dimension ist daher 


„22 _ 96309 
es 


Die euklidische Dimension ist Null, da sie nur Punkte enthält und daher auch Can- 
tor-Staub genannt wird. 


11.4 Die Teufelstreppe 


Die Teufelstreppe (englisch devil’s staircase) steht in enger Beziehung zur Cantor- 
Menge. Sie ist eine monoton steigende Kurve, definiert auf dem Einheitsintervall, die 
überall dort, wo beim Cantor-Verfahren ein Intervall-Drittel entfernt wird, ein waag- 
rechtes Plateau aufweist. Die Höhe der Treppe ist ebenfalls eins. Wie man sieht, ist 
die Treppenkurve nicht selbstähnlich; es läßt sich aber zeigen, daß die fraktale Di- 
mension gleich 1 ist (siehe [20]). Da die fraktale Dimension nicht die euklidische 
übersteigt, ist die Kurve nicht im Sinne von Mandelbrot fraktal. 


Bild 11.3 Teufelstreppe 


Die Treppe wird vom Quick Basic-Programm devi1.bas gezeichnet. 


'‘devil.bas 
"Teufelstreppe 


DIM i AS INTEGER 
DIM x1(10), xr(10), yr(10), y1(10) 


SCREEN 12: CLS 
LINE (0, 0)-(639, 479), , B 


i=8 

xl(i) = 0: xr(i) = 639 

yl(i) = 479: yr(i) =0 

GOSUB recursion 

LOCATE 2, 2: PRINT "Teufelstreppe" 
e$ = INPUT$(1): SCREEN 0 

END 


recursion: 
IF i = 1 THEN 
LINE (x1(1), yl(1))-(xr(1), yr(1)) 
ELSE 
ae: =2] 
xl(i) = xl(i +1) 
yl(i)=yl(i+]) 
TI) = (23ER 14ER HIN 2 
yr(i) = (yr(i + 1) + yl(i+1)) /2 
GOSUB recursion 
KL) >=2lA/ 3.8 xl + IH ENHARUAEH 1) 2 
yl(i) = (yrti+1)+ylli+1)) /2 
LINE (x1Ci), ylCi))-(xrli), yr(i)) 
xr(i) = xr(i + 1) 
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yr(i) =yrli +1) 
GOSUB recursion 
Kelstl 

END IF 

RETURN 


11.5 Cantor-Quadrat 


Bild 11.4 Cantor-Quadrat 


Das Cantor-Quadrat ist das zweidimensionale Analogon zur Cantormenge; d.h. das 
Cantorverfahren wird auf Länge und Breite eines Quadrates angewandt. Bei der Drit- 
telung der Seiten entstehen so je 4 selbstähnliche Quadrate; daraus leitet sich die 
fraktale Dimension 


2 _ 12619 
ea 


her. Die Dimension kann auch direkt aus der Produktformel berechnet werden. Da 
das Cantor-Quadrat das Produkt CxC der Cantor-Menge C ist, ergibt sich direkt 
re 
= ae 
Das Cantor-Quadrat kann mit Hilfe des Chaosspiels erzeugt werden; eine Implemen- 
tierung liefert das Quick Basic-Programm cantquad.bas. 


| 


146 11 Fraktale Kurven 


a ————————————————— nn 


"cantquad.bas 
"Cantor-Quadrat 


CONST n = 1.33333 

DIM p, xp, yp AS INTEGER 
DIM i AS LONG 

DIM x, y AS SINGLE 


SCREEN 12: CLS 
LINE (0, 0)-(639, 479), „ B 
LINE (150, 70)-(492, 411), „ B, &HAAAA 


RANDOMIZE TIMER 
x=0:y=0 
FOR i = 1 TO 40000! 
p = INT(RND * 4) 
SELECT CASE p 
CASE 0: xp = 405: yp = 325 


CASE 1: xp = 235: yp = 325 
CASE 2: xp = 235: yp = 155 
CASE 3: xp = 405: yp = 155 
END SELECT 


x=x+(xp-xX)*n: y=y+(y-y)*n 
IF i > 20 THEN PSET (x, y), p+ 11 

NEXT i 

LOCATE 2, 3: PRINT "Cantor-Quadrat" 

A$ = INPUT$(1): SCREEN 0 

END 


11.6 Sierpinski-Dreieck 


Das Sierpinski-Dreieck entsteht aus einem gleichseitigen Dreieck, aus dem das Mit- 
tendreieck entfernt wird. Dadurch zerfällt das Dreieck in 3 weitere Teildreiecke, aus 
denen wiederum die Mittendreiecke entfernt werden. Der Grenzwert des Verfahrens 
liefert das gesuchte Dreieck. 


Daraus folgt die Selbstähnlichkeit der Figur. Nimmt man ein beliebiges Teildreick 
und streckt eine Seite mit dem Streckfaktor k=2, so erhält die entstehende Figur 
N =3 gleiche Teildreiecke. Damit ergibt sich die frakale Dimension zu 
In3 
I 
D In2 58 

Damit liegt die Dimension des Sierpinski-Dreiecks etwa in der Mitte zwischen einer 
Geraden und einer Fläche. Das folgende Turbo C-Programm sierp2.c realisiert das 
Sierpinski-Dreieck mit Hilfe von Binär-Adressen. 
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/* sierp2.c */ 
/* Sierpinski-Dreieck mittels Binär-Arithmetik */ 


include <stdio.h> 
#include <graphics.h> 
include <conio.h> 


void main(void) 

{ 

iNE.X,Y; 

int gdriver,gmode; 

gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gqmode," "); 
rectangle(0,0,639,479); 


for (y=0; y<256; y++) 
for (x=0; x<=y; x++) 
if ((x & (y-x))==0) putpixel (320+x-y/2,y+100,14); 
moveto(10,10);outtext("Sierpinski-Dreieck mittels Binärarithmetik"); 
do {) while(!(kbhit())); 
closegraph(); 
return; 
} 


Sierpinski-Dreieck nittels Binärarithnet ik 


Bild 11.5 Sierpinski-Dreieck 


11.7 Menger-Teppich 


Der Menger-Teppich, auch Sierpinski-Teppich genannt, wird analog zum Sierpinski- 
Dreieck konstruiert. Die Drittelung der Seiten liefert 9 Teilquadrate, von denen je- 
weils das mittlere entfernt wird. Auf die verbleibenden 8 Quadrate wird Vorgang 
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wiederholt. Setzt man das Teilungsverfahren unbeschränkt wird, so ergibt sich der 
Menger-Teppich als Grenzwert der verbleibenden Punkte. 


Da eine Drittelung r ai insgesamt N = 8Teile liefert, berechnet sich die fraktale Di- 


mension zu 


InSrs 
=—— =1.8928 
In3 89 


Das Quick Basic-Programm menger2.bas arbeitet ähnlich wie das Chaosspiel, die Teil- 
quadrate werden aber nicht ausgelost, sondern systematisch durch Rekursion erfaßt. 


Bild 11.6 Menger-Teppich 


"menger2.bas 


CONST p = 4: '"Rekursionstiefe 

DIMh, x, xl, x2, y, yl, y2 AS SINGLE 
DIM j, g, m AS INTEGER 

DIM x(8), y(8), z(8), a(32), b(32), c(32) 


SCREEN 12: CLS 

WINDOW (-1.6, -1.2)-(1.6, 1.2) 

FOR j = 1 TO 4: READ f(j): NEXT j 

INES 1723:1 77392019723, 51/3600), SBE 


x=0:y=0:m=0:g=l 

DO WHILE m >= 0 

IFg<p+ 1 THEN 
XII ul 2)7/ 32: yl1 = ya 
x(2) = (x +2) / 3: y(2) = (y-2)/3 
x(3)’=!(x - 2)*/ 3: .y(3) y 3 


n 
Cam} 
= 
+ 
m 
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—6eeeeeeeeeeeeeeeeeeeeeeeee——nnnnnn 


x(A)u= (X 2 N Ir ya (ya=l 20783 


x(5) = (x +2) / 3: yB5)=y/3 
KG), = (XII 2)E 3 YNO)E=Fy 
AD I TEE 
x(8) = x / 3: y(8) = (y - 2) / 3 


hier 332: (=9N-2R) 

FOR j=1T08 
xl =x(j) -h: yl=y(j) +h 
x2=x(j) +h: y2=y(j) -h 
LINE (x1, yl)-(x2, y2), f(g), BF 


NEXT J 
x=x(l): y=y(l):g=g+1l 
FOR j = 2 T0 8 
m=m+]1 
alm) = x(j): b(m) = y(j): c(m) = g 
NEXT j 
ELSE 
x = alm): y = b(m): g = c(m) 
m=m-|]1 
END IF 
LOOP 
a$ = INPUT$(1): SCREEN 0 
END 
DATA 1,3,11,9 


11.8 Koch-Kurve 


Die Koch-Kurve wurde 1904 von dem schwedischen Mathematiker Helge von Koch 
angeben: Sur une courbe continue sans tangente, obtenue par une construction geo- 
metrique elömentaire, Arkiv f. Math. 1, 1904. 


Setzt man drei Koch-Kurven zu einem Dreieck zusammen, so erhält man eine stern- 
förmige Kurve, die allgemein Schneeflockenkurve genannt wird. Die Kochsche Kurve 
ist eine jener Monsterkurven, die zwar überall stetig, aber an keiner Stelle differen- 
zierbar ist; d.h. in keinem Punkt kann eine Tangente gelegt werden. 


Der Generator der Kochkurve ist eine 
Strecke, über deren mittlerem Drittel ein 
gleichseitiges Dreieck gesetzt ist. Dies be- 
deutet, daß bei einer Drittelung der Strecke 
4 Teilabschnitte erzeugt werden. Die frak- 


In4 
tale Dimension ist daher D= 3 = 12619 
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Bild 11.7 Schneeflockenkurve 


Die Länge der Schneeflocke wächst über jede endliche Schranke; d.h. der Umfang ist 
unendlich. Dies sieht man an einer kleinen Rechnung. Hat das Ausgangsdreieck die 


Länge 1, so ist je Seite sy ai Nach der n-ten Drittelung gilt dann für die Länge 


3% -(4/". Da sich die Anzahl der Seiten bei jedem Schritt vervierfacht, erhöht sich 


ihre Zahl nach dem Gesetz a, =3-4”". Der Umfang nach der n-ten Teilung ist damit 
U„=a,s, = 3(#)" 


Daraus folgt,daß der Umfang der Grenzkurve nicht beschränkt ist 


U= lim U, >» 
n—_® 


Die Fläche der Schneeflockenkurve wird, wie folgt, bestimmt. Die Fläche des Aus- 
gangsdreiecks ist wegen der Gleichseitigkeit Ay =13 . Bei jedem Drittelungsschritt 


addieren sich die a, Flächen der verkleinerten Dreiecke, dies zeigt die Rekursions- 
formel 


An = A)1+a,:43:5 


Dies ist die Rekursionsformel der geometrischen Reihe 
1 4\’ 
A,=4 +1 323) 
i=0 


mit dem Ergebnis 4,=2,3=2 4, 


11.8 Koch-Kurve ist 


m — ee ee 


Damit ist der Flächeninhalt der Grenzkurve das 1.6-fache der Ausgangsfigur! Ob- 


wohl die Länge der Kurve beliebig groß wird, bleibt der eingeschlossene Inhalt end- 
lich. Die Erklärung dafür liefert die fraktale Dimension I< D<2. 


Ein Basic-Programm zum Zeichnen der Kochkurve ist koch.bas. 
"koch.bas 


CONST PI = 3.141593 

CONST p = 5: 'Rekursionsstufe 
DIM m, n, k, 1, s AS INTEGER 
DIM h, x, y AS SINGLE 

DIM t(p) 


SCREEN 12: CLS 
WINDOW (0, -.3)-(1, .4) 
LINE: (0, "3971,79 9,B 


h=3 * (-p) 
PSET (0, 0) 
FRn=0T04*p-1 
m=-n 
FORI=07T0p-1 
t()) =mMOD 4: m=m\4: 
NEXT 1 
s=0 
FORk=0T0p-1 
s=s+(t(k) +1) MOD 3-1 
NEXT k 
Xr=iX + COSLPI FESTES) EHEN 
y=y+SINPI*s/3)*h 
LINE (x ,..y)» 12+n MODS 
NEXT. n 
e$ = INPUT$C1): SCREEN O 
END 


Bringt man die Koch- Kurve an den Seiten eines Quadrats innen an, so erhält man 
das Bild 11.8. 
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Roch-S 
Bild 11.8 Kochkurve im Qua- 
drat 

11.9 Koch-2 


Bild 11.9 Koch-2 


Die Koch-Kurve kann auf vielfältigste Art verallgemeinert 
werden. Durch den Generator hält man die kochähnliche 
Kurve Koch-2, sie wird von Mandelbrot Alternative 
Koch-Kurve genannt (siehe Bild 11.9). Geht man von der 
Einheitsstrecke aus, so sind die Eckpunkte des Generators 
(0.4,0.2) und (0.6,-0.2). Der Generator besteht damit aus 


ee Be 
Be 


zer 


11.9 Koch-2 153 


N=3 Strecken der Länge 1=,5 . Die fraktale Dimension ist damit 
In3 


= =1.3652 
# Inv5 


Für alle Koch-Kurven läßt sich ein universelles Basic-Programm nach Lauwerier [14] 


angeben, das nach Eingabe der Anfangskurve, Initiator genannt und des Generators 
die zugehörige Kurve zeichnet. 


'koch2.bas 


CONST p = 5: "Rekursionstiefe 

CONST u=4: v=3 

DIM al, bl, i, 3j, k, 1, m, ml, m2, n AS INTEGER 
DIM x1, yl AS SINGLE 

DIM a, b(0 TO u) AS SINGLE 

DIM c, d(0 TO v) AS SINGLE 

DIM x(4096), y(4096) 


SCREEN 12: CLS 
WINDOW (-2.5, -2)-(2.5, 2) 


FOR i =0T0 u 
READ a(i), b(i) 
NEXT i 
FOR i=1T0v-1 
READ c(i), d(i) 
NEXT i 
c(0) = 0: d(0) = 0: x(0) = 0: y(0) = 0 
x(v * p)i= 1: y(vp) = 0 
FR i=0T0p-1 
FOR j = 0-TOFVE*7p SPP STERFVF (PD) 
mi = jr #rvolDe) 
xl = x(ml) - x(j) 
yl = y(ml) - y(j) 
FORkK=1T0v-1 
m2.=.j +.k* VS (pe) 
x(m2) = x1 * c(k) -yI * dick) + x) 
y(m2) = yl * c(k) + x1 * d(k) + y(J) 
NEXT k 
NEXT j 
NEXT i 
PSET (a(0), b(0)) 
FORm=0 T0u-1 
al= a(m + 1) - a(m) 
bl = b(m + 1) - b(m) 
FORn=0T0v*p 
x = al * x(n) - bl * y(n) + alm) 
y = bl * x(n) + al * y(n) + b(m) 
LINE -(x, y),:1 + mMOD 8 
NEXT n 
NEXT m 
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e$ = INPUT$(1): END 
DATA DAS SIT I 1.1.1 
DATA .4,.2,.6,-.2 


Die kartesischen Koordinaten des Initiators sind in der vorletzten DATA-Zeile,die 
Punkte des Generators in der letzten Zeile einzugeben. Zu beachten ist, daß der Kur- 
venzug des Initiators geschlossen sein muß, d.h. der letzte Punkt muß mit dem ersten 
übereinstimmen. 


11.10 Koch 3 


Als weiteres Beispiel für eine Koch-Kurve, soll die von dem Generator mit den Tei- 
lungspunkten (0.25,0.25) und (0.75,-0.25) erzeugte Kurve behandelt werden. Be- 
rechnet man nämlich die 3 Teilstrecken des Generators, so erkennt man, daß die 
Kurve nicht exakt selbstähnlich ist. Der Generator besteht aus 2 Strecken der Länge 
35 und einer Strecke der Länge FE Es tritt hier das Problem auf, daß die fraktale 


Dimensionsformel 
Nr? =1 
verallgemeinert werden muß. Treten außer den N Strecken der Länge 4 auch noch 


M Strecken der Länge 4 auf, so gilt die verallgemeinerte Dimensionsformel 


Nr? + Ms? =1 
Diese Formel ist nichtlinear in D und daher meist nur numerisch zu lösen. 


Mit den oben angegebenen Werten ergibt sich 


I) +) = 


Schreibt man die Wurzeln als Zweierpotenz, so ergibt sich 


el 


ı 
Setzt man [2] =2 


DO 


, so ergibt sich 
2-5+1=1 oder »’-r?-2=0. 


Die Lösung dieser Gleichung liefert x=1.6956 und damit für die gesuchte Diemension 
D=2ldx =1.5236. 
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12.1 Kreuzstichkurve 


Die Kurve stammt von Tamas Vicsek vom Institut für 
Technische Physik, Budapest. Sie hat den nebenstehen- 
den Generator und kann deshalb als Koch-ähnlich 


angesehen werden. Bei der Drittelung mit 1=3 erge- 
ben sich hier N=5 Teilstrecken. 


Daraus läßt sich die fraktale Dimension 


ableiten. Wirkt der Generator auf einem Quadrat nach außen, so erhält man Bild 
12.2; Bild 12.1 verwendet die Einheitsstrecke als Initiator. 


Kreuzst ichkurve 


Bild 12.1 Kreuzstichkurve über 
Einheitsstrecke 


Die Kreuzstichkurve kann mit dem Basi 
eine Modifikation von koch2. Bas. ET 


we A Eat. FAreR, 
2 


'kreuz.bas 
'Kreuzstichkurve nach T.Vicsek 


CONST pi = 3.141592654F BraR “3 
CONST p = 5: "Rekursionstiefe i 
CONST u = 4: ” =5 N: 
DIMal, BI, 1,..3,%, T,. m. mi, m, nAs INTEGER ag 
DIM x1, yl 2 SINGLE > Be 
DIM a, b(0 TO u) AS SINGLE 
DIM c, d(0 TO v) AS SINGLE 
DIM x(15625), y(15625) 


SCREEN 12: CLS x 
WINDOW (-1.8, -1.3)-(1.8, 1.3) 


FOR i =0T0 u 
READ a(i), b(i) 
NEXT i 
FR i=-1T0ov-1 
READ c(i), d(i) 
NEXT i ENT BD ie 
c(0) = 0: d(0) = 0: au RE She ae Bet 
Xy 2.p).= 1:7 YVES DIE NE en 
FOR i=0T0p-1 are ech ana et nn a sa 
FOR j. = 0 TO.v2pST12STEBSVES DEE SR 
mM =j+v’(p-i) 
x1 = x(ml) - x(j) 
yl = y(ml) - y(j) 


FORRK=-1T0v-1 gt 
| m-j+k®v 0 DU KR 
x(m2) = x1 * c(k) - yl * d(k) + Reg 
y(m2) = yl * c(k) + xl * d(k) + y(). 
NEXT k WS 
NEXT j N 
| NEXT i < 
PSET (a(0), b(0)) | inc hetilae 
FORm=-0 T0Ou-1 Aut Pa 
al = a(m + 1) - a(m) 
bl = b(m + 1) - b(m) a; 


FORn=0T0v*p 
x=al* x{n) - bl* yin) + an) 
y=bl*x(n) + al * y(n) + b(m) 
LINE -(x, y), 1 + m MOD 8 
NEXT n eh 
NEXT m | 
e$ = INPUT$(1): END 
DATA 1-1, 1. UI | 
DATA .333,0, .333, 33, ee u 
5 I. N ic 


. 
| 
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Bild 12.2 Kreuzstichkurve im 
Quadrat 


12.2 Eiskurven 


Der Initiator der Eiskurve besteht aus der Einheitsstrecke, der Generator erzeugt im 
Mittelpunkt der Strecke eine Lotstrecke der Länge we Dies hat zur Folge, daß die 
Grenzkurve flächenfüllend ist. Dies folgt aus dem Grenzfall der Cesäro-Kurve für 


oa = 90° (vgl. Abschnitt 12.3). 


Bild 12.3 Eisquadrat 


Als Initiator und Generator sind für das Eisquadrat folgende DATA-Zeilen in das 
Basic-Programm kreuz.bas oder koch2.bas einzusetzen: 


12.3 Caesäro-Kurve 159 


DATA 1,21, 112] 
DATA :5,0,:9,-339,.29,0 


Für das folgende Eisdreieck ist einzusetzen 


DATA 0.433,0,-0.433,0.5,-0.433,-0.5,0.433,0 
DATA .5,0,.375,.2165,.5,0,.625,.2165,.5,0 


Bild 12.4 Eisdreieck 


Die Caesäro-Kurve hat den nebenstehenden Generator. 
Ist & der Basiswinkel des aufgesetzten Dreiecks so gilt: 


x 
cosa = — 
r 


Da der Initiator die Einheitsstrecke ist, gilt 2r+2x=1. 
Daraus folgt 


2= 2(1+cosa ) 


Für einen Winkel von & =86.35°, wie er sich in den unten angegebenen DATA- 
Werten ergibt, folgt 


InN 
2221273 D= 7 =18365 
n-: 


r 


Die fraktale Dimension ist somit D= 1.8365. Wirkt der Generator auf einem Quadrat, 
so erhält man das Caesäro-Viereck von Bild 12.5 mit der Generatorzeile 
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a —————— nn ERBE 


DHAHISIS-IST. 10-1011, 151 
DATA .47,0,.5,.47,.53,0 


\ 


Bild 12.5 Caesäro-Quadrat 


Interessant erscheint das Caesäro-Dreieck, wenn die Spitze nicht symmetrisch liegt, 
sondern die Strecke im Verhältnis 1:2 teilt. Das Innere der Abbildung 12.6 wurde 
zusätzlich schwarz gefärbt. Die Generatorzeile lautet hier 


DATA 0,0,1,0 
DATA .3,0,.3,.45,.35,0 


Bild 12.6 Caesaro-Dreieck 


12.4 Levy-Kurve 


m ea 7 Zar 


12.4 Levy-Kurve 


Die Kurve stammt von dem französischen Mathematiker Paul Levy, der sich schon 
früh mit fraktalen Kurven befaßt hat. Der Generator 2. Stufe findet sich in nebenste- 
hender Abbildung. Die fraktale Dimension ist nur schwer zu ermitteln, da es hier zu 
Selbstberührungen kommt. 


Die Levy-Kurve kann mit dem folgenden Basic-Programm 1evy.bas erzeugt werden: 
'Jevy.bas 


CONST PI = 3.141593 

CONST p = 12: '"Rekursionstiefe 

DIM a, b, m, n, s, X, y AS INTEGER 
DIM h AS SINGLE 


SCREEN 12: CLS 

WINDOW (-.7, -1.1)-(1.7, .4) 

EINENC-..7,2 1.1). 170 

Bes SAAB ZN 

a=h* COS(p * PL /4): b=h * SIN(p * PI / A) 
LINE (0.: 0)-(a,@ -bI:SEINEI Ca DZ) 


x=-l:y=]1 
FORn=2702*p-1 
men:s=]1 
DO 
IF mMOD 2=1THENs=s +1 
m=-m\2 
LOOP WHILE m > 1 
SELECT CASE s MOD 
CASE 0: x = x + 
CASE 1: y + 
CASE 2: x 
CASE 3: y 
END SELECT 
LINE -(a*x+b*y,a*y-b*x), 1+s MOD 4 
NEXT n 
LOCATE 2, 2: PRINT "Levy-Kurve" 
e$ = INPUT$(1): SCREEN 0 
END 


el ee ee > 


u 


Y 
0 
y 
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Bild 12.7 Levy-Kurve 


Mittels Turtle-Graphik läßt sich die Kurve in Turbo Pascal beschreiben. 


program _levy; '| Levy-Kurve ] 
uses crt,graph; 


const startx = 100; starty = 330; 
var turtx,turty ,‚wi:real; 
Graphdriver,Graphmode: integer; 


procedure forward(h:real); 

var dx,dy,tx,ty:real; 

begin 
dx := h*cos(wi*pi/180); 
dy := 2*h*sin(wi*pi/180); 
tx := turtx +dx; ty := turty +dy; 
line(round(2*turtx) ‚round(turty) ‚round(2*tx) ,,round(ty)); 
turtx := tx; turty := ty 

end; 


procedure turn(alpha:integer); 
begin 

wi := witalpha 
end; 


procedure start; 
begin 
wi := 0; 
turtx := startx; turty := starty; 
end; 
procedure levy(grad:integer;seite:real); 
begin 
if grad=0 then forward(seite) 
else 
. begin 


12.5 Drachenkurve 
| — 


levy(grad-l,seite); turn(90); 
levy(grad-1,seite); turn(-90); 
end 

end; 


begin 

start; 

GraphDriver := 9; 

GraphMode := VGAHi; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 


turn(180); 

levy(12,2); 

repeat until keypressed; 
closegraph; 
textmode(lastmode) 

end. 


Leuy-Teppich 


FeRaTTeT 
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Bild 12.8 Levy-Teppich 


Kombiniert man 4 Levy-Kurven miteinander, die jeweils 90° gegeneinander gedreht 
sind, so erhält man den Levy-Teppich (siehe Bild 12.8 und Tarbtafel 16). Er kann 
wieder aus dem Basic-Programm koch.bas erzeugt werden mittels des Generators 


DATA 1,1, -1,1,-1,-1,0, 1,7 10 Serie 
DATA .5,.5 : "Motiv 


12.5 Drachenkurve 


Die Drachenkurve wurde von den amerikanischen Mathematikern Harter und 
Heightway erfunden und durch eine Artikelserie im Scientific American vom März 
1967 populär. 
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Bild 12.9 Drachenkurve 


Die Drachenkurve ist strikt selbstähnlich. Sie zerfällt in N=2 selbstähnliche Teile, 


die mit dem Streckfakto =- 2 auf die ganze Figur vergrößert werden können. Dar- 


aus ergibt sich die fraktale Dimension 
_N_in2 _, 
In! InY2 


Der Drachen ist also flächenfüllend. Die Kurve kann in Turbo Pascal mittels Turtle- 
Graphik, wie folgt, implementiert werden. 


program _dragon; { Drachenkurve ] 
uses crt,graph; 


const ds = 3; 
startx = 230; "starty = 180; 
var turtx,turty ‚wi:real; 
Graphdriver,,Graphmode:integer; 


procedure forward(h:rea]); 
var dx,dy,tx,ty:real; 
begin 
dx := h*cos(wi*pi/180); 
dy := 2*h*sin(wi*pi/180); 
tx :;= turtx +dx; ty := turty +dy; 
line(round(2*turtx) ‚round(turty),,round(2*tx),round(ty)); 
turtx := tx; turty := ty 
end; 


procedure turn(alpha:integer); 
begin 


426Drachenäs; | _ 7 


wi := wi+alpha 
end; 


procedure start; 
begin 

wi := 0; 

turtx := startx; turty := starty; 
end; 


procedure dragon(grad:integer); 

begin 

if grad=0 then forward(ds) 

else if grad>0 then 
begin 
dragon(grad-1); turn(90); dragon(1-grad) 
end 

else 
begin 
dragon(-grad-1); turn(-90); dragon(grad+1) 
end 

end; 


begin 

GraphDriver := 9; 
GraphMode := VGAHi; 
Initgraph(GraphDriver,GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 
cleardevice; 

start; dragon(12); 
repeat until keypressed; 
closegraph; 
textmode(lastmode) 

end. 


12.6 Drachen-2 


Will man die Selbstberührung der Drachenkurve vermeiden, so müssen die Ecken 
abgerundet werden. Dies liefert den Drachen gemäß Bild 12.10. Zur Darstellung der 
gerundeten Drachenkurve dient das Basic-Programm dragon2.bas 


'dragon2.bas 

'Drachenkurve mit gerundeten Ecken 

CONST p = 10: 'Rekursionstiefe 

CONST PI = 3.141593 

DIM d, n, s AS INTEGER 

DIMh, x, xl, x2, x3, y. yl. y2, y3 AS SINGLE 


SCREEN 12: CLS : 
WINDOW (-.5, -.9)-(1.5, .5) 
LINE (=:5:5=.9)-(1.5,7.D,0 08 
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h=2*(-p/2):s=0 
%en* Op PEN: y- -h * SIN(p * PI / 4) 
LINE (0, DIT X, 75° y), 1 
FOR n = 1.70 2° p: - 1 
m=n 
WHILE m MOD 2 = 0 
m=m/2 
WEND { 
IF m MOD 4 = 1 THENd = 1 ELSE d= -1 
s=(s +d) MOD 4 
xl =x+h* CoS((s -p / 2) * PI / 2) 
yl=y+h*SINt(s-p/2)*PI/2) 
x2=(3*x+xl) /4: y2=(3*y+yl)/4 
3=(x+3*#x1) /4: y3=(y+3*yl) /4 
LINE -(x2, y2), 1 + n MOD 7 
LINE -(x3, y3), 1 + n MOD 7 
x=xl:y=yl 
NEXT n 


LINE -(1, 0), 14 

LOCATE 2, 5: PRINT "Drachen-2" 
e$ = INPUT$(1): SCREEN 0 

END 


Bild 12.10 Gerundete Drachen- 
kurve 


12.7 Cayley-Baum 


Der Cayley-Baum ist eine Abart der bekannten H-Kurve; er wird manchmal auch 


nach Mandelbrot benannt. Der Cayley-Baum kann mit dem Quick Basic-Programm 
cayley.bas gezeichnet werden. 


sd 


Bild 12.11 Cayley-Baum 


'cayley.bas 
'Cayley-Baum 


CONST p = 11 

CONST rl = .72: r2 = .67: a = 3.98: b = 4.38 

DIM c, j, n, m, s AS INTEGER 

DIM:al,. a2, bl,:D2, cl, .c2, di, d2, tl, f2,.02 82 yrASSSINGEE 
DIM x1(p), yl(p), x2(p), y2(p), ul(p), vl(p), u2(p), v2(p) 


SCREEN 12: CLS 

WINDOW (-9.5, -3)-(10.5, 12) 

al=0: a2=a:bl=-0:b2=a+rl 
el=1:e2=b+tr2: fl=1: f2=b 

cl= .5: c2=b2: dl = .5: d2d=e2 

x1(0) = 0: yl(0) = 0: ul(0) = 1: vl(0) = 0 
LINE (0, O)-(1, 0), 10 


s=] 

GOSUB Schleife 

FORm=-1T712*(p- 1) -1 
s=p:n=m 
WHILE n MOD 2 = 0 

n=n\2:5= 

WEND 
h= a2: a2=f2: f2=h: h=b2: b2 = e2 
e2 =h: h= c2: c2 = d2: d=h 
xl(s - 1) = x2(s - 1): yl(s - 1) = y2(s - ]) 
ul(s - 1) = u2(s - 2): vl(s - 1) = v2(s - ]) 
GOSUB Schleife 

NEXT m 

LOCATE 1, 35: PRINT "Cayley-Baum" 


a$ = INPUTS(1): SCREEN 0 
END 


Ssu-@l 


168 Fraktale Kurven 2 


| 


Schleife: 
FOR j=sTOp 
x=xllj - 1): y=yl(j - D: u=ul(j - De vevllj- 1) 
XIeUur- Xu y3l=ıV -y 
xlj) ex +al*x3 - a2 * y3: yllj)=y+a2*x3 -al* y3 
ul(j) =x +bl * x3 - b2 * y3: vl(j) = y+b2 *x3 + bl * y3 
x2(j) =x+tel*x3 -e2 * y3: yAlj)=y+re2*x3tel*y3 
uz(j)=x + fl*tx3 - fir y3: valj)yrt2 Er + fl * y3 
B=x+ci*x3-c2*y3:vV3=y+c2*x3 +cl*y3 
u4=x+dli*x3 -d2* y3: va=y+d2*x3 +di *y3 
IF j = s THEN 
h= a2: a2=f2: f2=h: h=b2: 
b2 = e2: e2 =h: h= c2: c2 = d2: d2=h 
END IF 
c=1+j M0D 3: IF c=3THEN c = 14 
LINE (x, y)-(x1(j), yl(j)), c 
LINE (ul(j), vi(j))-(u3, v3), c 
LINE -(u4, v4), c: LINE -(x2(j). y2(j)). c 
LINE (u2(j), v2(j))-(u, v), c 
NEXT j 
RETURN 


12.8 Symmetrischer Pythagoras-Baum 


Bild 12.12 Symmetrischer Py- 
thagoras-Baum 


Die bekannten Pythagoras-Bäume gehen zurück auf den holländischen Ingenieur 
A.E. Bosman. Er entwarf diese während des 2.Weltkriegs an dem Zeichenbrett, an 
dem er sonst seine U-Boot-Pläne zeichnete. Seine Graphiken wurden später in dem 
Buch Het wondere onderzoekingsveld der vlakke meetkunde (1957) publiziert. 


12.8 Symmetrischer Pythagoras-Baum 
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Die Abbildung beruht auf der Figur des Pythagoras-Lehrsatzes. Die beiden Katheten 


des rechtwinkligen Dreiecks dienen als Verzweigung, 


wiederum verzweigt. 


da jedes Kathetenquadrat sich 


Das Turbo Pascal-Programm pythb1.pas zeichnet den symmetrischen Pythagoras- 


Baum. 


program pythbl; 
{ symmetrischer Pythagorasbaum } 


uses crt, graph; 

const c = 0.707107; { 1/sqrt(2)] 

var j,k,l,m,n,p : integer; 
f.h.u,V.x,y. > real; 
d:array[1..10] of integer; 
Graphdriver,Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode,' '); 
SetgraphMode(Graphmode) ; 

cleardevice; 


Xu.= 0,,.y. 2 057 U) serlEvzs=ate 
for m := 0 to 10 do 
begin 
p. := 1; 
for k:= 1 tom do p := p%2; 
for n := p to 2*p - 1 do 
begin 


begin 
d[m - k] := I mod 2; 1 := 1 div 2 
end; 
x:=0;y:=0; 
for j :=1tom do 
if dlj] = 0 then 
begin 
X.=x.. HER lcosclk) +2, sinn); 


y. =: y.+.h #228 Costh)- =isinendr 
t:=f+pi/4: h:=c*h 
end 
else 
begin 


x:=x+h* (cos(f) - 2 * sin(f)); 
y:=y+h* (2* cos(f) + sin(f)); 


t=f- pl /4 her 
end; 

u:=h* (cos(f) + sin(f)); 
:= h * (cos(f) - sin(f)); 


< 
li 
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ee ee TI ee a rn m 


setcolor(mt4); 
moveto(round(48*(x-v+6.5)) ,480-round(48*(y-u+2))); 
Tineto(round(48*(x+u+6.5)) ,480-round(48*(y-v+2))); 
lineto(round(48*(x+v+6.5)) ,480-round(48*(y+u+2)));, 
lineto(round(48*(x-u+6.5)) ,480-round(48*(y+v+2))); 
lineto(round(48*(x-v+6.5)),480-round(48*(y-u+2))) 
end 

end; 

repeat until keypressed: 

textmode(lastmode) 

end. 


12.9 Schiefer Pythagorasbaum 


Beim symmetrischen Pythagoras-Baum schließen die Katheten mit der Hypothenuse 
einen 45° Winkel ein. Ändert man diesen Winkel, so wird der Baum schief. 


* h 
Wi 
ii 
I 
hi 
wi 
\ 
t. 


Bild 12.13 Schiefer Pythagoras- 
baum 


Zum Zeichnen des schiefen Pythagoras-Baums dient das Quick Basic-Programm 
pythb2.bas. 


'pythb2.bas 
'schiefer Pythagorasbaum 


CONST PI = 3.141593 

CONST p = 12: 'Rekursionstiefe 

DIM j, m, n, s AS INTEGER 

DIM c, f, al, a2, bl, b2, cl, c2, dl, d2 AS SINGLE 

DIM x1(p), yl(p), x2(p), y2(p), ul(p), vi(p), u2(p), v2(p) 


2.9 Schiefer Pythagorasbaum 
1298:ieePyagorabam | m 


SCREEN 12: CLS 
WINDOW (-4.2, -2)-(3.6, 3.7) 


f = PI / 6: "Winkel 
c = CoS(f): si = SIN(F) 


al = -C 


*si:a2=c’2 


bl=al+ a: b2= -al + a2 


cl = b2: 


c2=1-bl 


di=1-al:d=-1-2 


x1(0) = 


0: yl(0) = 0 


ul(0) = 1: vl(0) = 0 
LINE (0, 50)- (0,19, -3:Y LINES FEN 3 
KINEH-(14 0),9 


s=l 


GOSUB graph 
EOR m =. 1: 10.222. .(p, 21) 4 


s=p: 


WHILE 


Nena Z2enS 


WEND 


n=m 
n MOD 2 = 0 
NS 


xl(s - 1) = x2(s.--W:;ylls 1) = y2(s -1) 
ul(s - 1) = u2(s - 1): vl(s - 1) ev2(s - ]) 


GOSUB graph 
NEXT m 
e$ = INPUT$(1): SCREEN 0 
END 
graph: 
FORj=sTOp 
X=xl(j - D>3.Y= yl(j - Di U=ullj - 1): V= 
XI - X: Yal=ıV N. 
xl(j) = X +al * X3 - a2 * Y3: yl(j) =Y+ a2 * 
ul(j) = X + bl * X3 - b2 * Y3: vl(j) =Y+b2* 
XI), = Kr. cl %.X3- e2 1 Y3:7 y2 ON cz 
u2(j) =X + d1 * X3 - d2 * Y3: v2(j) =Y+d2 * 
LINE X, V)I-oLCH) 2 yL(JD), Ss +2 
LINE -(ul(j), viCj)), s + 2:5 LINE -(U, WW, Ss +2 
LINE -- (XV). si# 2: LINE SX2C)) ya) 
LINE -(u2(j), v2(j)), s + 2: LINE -(U,W, s+2 


NEXT j 
RETURN 


vl(j - 


X3 + al 
X3 + bl 
3 + cl 
X3 + dl 


+ 4 * * 


R 
Setzt man hier den Winkel f = 7,50 erhält man wieder den symmetrischen Pythago- 


ras-Baum. 


12.10 Alternierender Pythagoras-Baum 


Bild 12.14 Alternierender Py- 
thagoras-Baum 


Ebenfalls von Bosmann stammt die Idee für den alternierenden Pythagoras-Baum. 
Dies erreicht man, indem man bei jeder Verzweigung die beiden Kathetenquadrate 
vertauscht; d.h. das jeweils kleinere Quadrat wird abwechselnd links und rechts auf- 
getragen (Bild 12.14 und Farbtafel 11). 


Dieser Pythagoras-Baum ist nicht einfach zu programmieren. Das folgende Basic- 
Programm pythb3.bas ist daher etwas umfangreicher. 


'pythb3.bas 
‘alternierender Pythagorasbaum 


CONST TRUE = 1: p = 10: eps = .05 

DIM j, k, m AS INTEGER 

DIM a, b, c, f, x, y AS SINGLE 

DIM al, a2, a3, a4, bl, b2, b3, b4 AS SINGLE 

DIM c1, c2, c3, c4, dl, d2, d3, d4 AS SINGLE 

DIM u, v, q, ul, v1, x0, x1, y0, yl AS SINGLE 

DIM x2(p), y2(p), x3(p), y3(p), x4(p), y4(p) 

DIM u2(p), v2(p), u3(p), v3(p), u4(p), v4(p), s(p) 


SCREEN 12: CLS 
WINDOW (-7, -1)-(7, 9.5) 


f= ‚5: a = C0S(f) * 2 

b = SIN(f) * coS(f): c = SIN(f) * 2 

al=-b: bb=1+a:cl=- -b: di=1+a+rb 

a2=c1: b2=dl: c2=a-b:d2=1l+rarb 
3=a+b:b3=-1+b+c: c3=-1+b: dId=-1+b+rc 
a4 = c3: b4 = d3: cA=1+b: d=1+c 


x=0:y=-0:u=1:v=0 
q= 0: s(0) «3: J = 1 


WHILE TRUE: "Abbruch durch Ka a DERR 
m=q+j: x0=-u-x: yO=v-y a a 
er. BER + ar yo 
ul.=.x:+ .c1.%x0.=5d1,*,y0: vl=y+di*x0+c1*y0 
x2(m) = x + a2 * x0 - b2 * y0: y2(m) =y+b2*x0+a2* 


u2(m = x +c2 * x0 - d2 * y0: v2(m) = yrdztrcze yo 
x3(m) = x + a3 * x0 = b3 * y0: y3lm) = y + b3 * x0 +.a3 * y0 yo 

u3(m) = x + c3 * x0 - d3 * yO: v3m) = y +.d3 * x0.+.c3 * Ei 
x4lm) = x + a4 * x0 - b4 * y0: ydlm) = y+b4* x0 + a4 “v0 


u4(m) = x + c4 * x0 - d4 * y0: van), = and = er 
s = ABS(x - u) + ABS(y - v): s(m) =3 
GOSUB graphik 


x-xl: y=-yl: u=ulov=evli mi rail. 

IF m= p OR s < eps THEN GOSUB backtrack 

J ka J | NR 
WEND E ERBEN. 
graphik: b 


LINE (x + y:- Vs yXRH U) ya 
LINE -(u2(m), v2(m)), k+1 

LINEr-(u Ivory, UF Vox) rK Hl 

LINE -(u4(m), vA(m)), k +1 


LINE -(x3(m), y3m)), K+1 „pe 
LINE (x + y7 Wr Eu basti Gh 
LINE -(x, y)..k+ 1 LINES Wet DaUTE TERN 
LINE -(u-v+y,u+v-x),k#+1 VER 
EINEF=.(X +:y = vv, yore TEE x 
RETURN a Air 
backtrack: 
k=-1 
WHILE s(m - k) = 0 

khaik-tal 
WEND 
IF m<> k THEN 


q=m-k:x = x2(lg): y = y2lq): u = u2lg): v= v2(q) 
x2(q) = x3(q): y2lq) = y3lq): u2lq) = ulq): v2(q) = Ita) 
-.x3lq) = xAlq): y3lgq) = yAlg): .u3lg) = a  v3(q) u. 
le s(q) SSR J =( Ey ans $ yaeng * u: Bun 
ELSE N A RE - 
e$ = INPUT$(1): SCREEN 0 
“ END 
END IF 
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12.11 Peano-Kurve 


Die Peano-Kurve hat den nebenstehenden Generator. Der Initiator ist eine Strecke, 
der Generator errichtet über dem mittleren Drittel je ein Quadrat nach oben und 
unten. 


Damit ergibt die Drittelung der Strecke 1=3 insge- 


samt N=9 Teilstrecken. Die fraktale Dimension 
berechnet sich daraus zu 


Die Kurve ist daher flächenfüllend. 


Bild 12.15 Peano-Kurve 


Der Generator kann direkt in Turtle-Graphik umgesetzt werden, indem man die Pro- 
zedur peano entsprechend definiert. Bei jedem Aufruf muß die Seite gedrittelt werden, 
das Rückzählen der Rekursionsstufe garantiert das Abbrechen der Rekursion. Dies 
zeigt das Pascal-Programm peano.pas. 


program _peano; | Peano-Kurve mittels Turtle-Graphik | 
uses crt,graph; 


const ds = 1; startx = 50; starty = 250; 
var turtx,turty,‚wi:real; 
Graphdriver ‚Graphmode: integer; 


procedure forward(h:real); 


var dx,dy,tx,ty: real; 
begin 
dx := h*cos (wi*p1/180); 
dy := 2*h*sin(wi*pi/180); 
tx := turtx +dx; ty := turty +dy; ' F 
Tine(round(2*turtx) ‚round(turty) ‚round(2*tx) Funde: 
turtx := tx; turty := ty e 


end; vaay 2 FIR U 
procedure turn(alpha:integer); ET Er 
begin PIERRE 

wi := witalpha 
end; 


procedure start; 
begin 

wi := 0; turtx := startx; turty := starty; 
end; 


procedure left; 

begin RR 
turn(45); forward(ds*sqrt(2)); urn) 03939373 
end; Ace 


procedure right; 

begin 

turn(-45); forward(ds*sqrt(2)); turn(-45) 
end; 


procedure peano(grad:integer;seite:real); 

begin 

if grad=0 then forward(seite) 

else 
begin 
peano(grad-1,seite/3); left; e I lerne) 
peano(grad-1,seite/3); right; 
peano(grad-1,seite/3); right; 
peano(grad-1,seite/3); right; 1 
peano(grad-1,seite/3); left; BER 
peano(grad-1,seite/3); left; 
peano(grad-1,seite/3); left; 


peano(grad-1,seite/3); right; EEE TE N 
peano(grad-1,seite/3) er ; 
end EEE 
end; ne 
begin | main } De ee 
start: BER, 
GraphDriver := 9; | ES. 
GraphMode := VGAhi ; zäh {AR Be ri 


Initgraph(GraphDriver, GraphMode, AN TB 5 
SetgraphMode(Graphmode); pie « 
peano(3,150); ER: 
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ee Ä 


repeat until keypressed; 
closegraph; 
textmode(1lastmode) 

end. 


13 Iterierte 
Funktionssysteme (IFS) 


Als Michael Barnsley auf der SIGGRAPH 85 sein Verfahren zur graphischen Erzeu- 
gung des Farnkrauts mit Hilfe des von ihm entwickelten Iterierten Funktionen- 
Systems (IFS) darstellte, erregte er großes Aufsehen. 


Es war völlig neuartig, daß ein so kompliziertes pflanzliches Muster nur mir Hilfe 
von 4 affinen Abbildungen dargestellt werden konnte! 


13.1 IFS-Code des Farns 


Eine affine Abbildung kann dargestellt werden in der Form 


FE HG 
y) \ce d)\w)\f 
dabei wird in der Regel gefordert, daß die Determinante der 2-reihigen Matrix nicht 
verschwindet. In einzelnen Fällen ergeben sich jedoch auch Transformationen mit 


verschwindender Determinante. Einfacher als die Matrixform ist die Darstellung 
eines IFS mittels Tabelle. Tabelle 1 zeigt den IFS-Code für Farn 


a b c d e f 

0 0 0 0.16 0 0 
0.197 -0.026 0.226 0.197 0 1.6 
-0.155 0.283 0.26 0.237 0 0.44 
0.849 0.037 -0.037 0.849 0 1.6 


Tab, 1 IFS-Code des Barnsley-Farn 


Die verwendeten affinen Abbildungen sind in Bild 13.1 dargestellt. A I aus 
Zeile 1 (mit verschwindender Determinante) stellt eine Projektion des Einheitsqua- 
drats auf die Strecke [(0/0),(0.16)] dar und liefert den Stengel des Farnkrauts, 


— Doz 2) mn Dun Zn u 
. 
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Die Abbildungen II und IV (aus Zeile 2 bzw. 4) stellen Ähnlichkeitsabbildungen mit 
den Streckfaktoren 0.3 bzw. 0.85 dar. Die Abbildung II ist eine Affinität mit der 
Determinante -0.106. 


Die Abbildungen II und III erzeugen die Blätter des Farns; die Abbildung IV bewirkt 
mittels einer Drehung um -2.5 Grad die gekrümmte Form des Farns. 


Bild 13.1 Die 4 affinen Abbil- 
dungen des Farns 


Die einfachste Methode zur Erzeugung einer Figur nach der IFS-Methode ist der sto- 
chastische Algorithmus nach Barnsley. Dabei werden mehrere tausend Punkte den 
affinen Abbildungen unterworfen; die jeweils ausgeführte Abbildung wird mittels 
Zufallszahlen ausgelost. Als Punkte werden jeweils die zuletzt erhaltenen Bildpunkte 
gewählt, beim Start der Nullpunkt. 


Der stochastische Algorithmus kann durch das Turbo Pascal-Programm farn.pas aus- 
geführt werden: 


program farn; 
{ Stochastischer IFS-Algorithmus 
nach Michael Barnsley: Fractals Everywhere 
Academic Press, San Diego 1988, p.91 ) 
uses crt,graph; 


const 

a:array[1..4] of real 
b:array[1..4] of real 
c:array[1..4] of real 
d:array[1..4) of real 
e:array[1..4) of real 


(0,0.197,-0.155,0.849); 
(0,-0.226,0.283,0.037); 
(0,0.226,0.26,-0.037); 
(0.16,0.197,0.237,0.849); 
(0,0,0,0); 


13.1 IFS-Code des Farns 


f:array[1..4]J of real = (0,1.6,0.44,1.6); 
p:arrayl1..4] of real = (0.03,0.14,0.27,1.0); 
var k : integer; 

i:longint; 

x,x1,y,pk : real; 


procedure Graphlnit; 

var Graphdriver,Graphmode:integer; 

begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 

cleardevice; 

end; 


begin 
Graphlnit; 
randomize; 
x:=0;y:=0; 
for i:= 1 to 75000 do 
begin 
pk := random; 
if pk <= p[lJ then k := 1 
else if pk <= pl[2] then k := 2 
else if pk <= p[3] then k := 3 
else k := 4; 
x1-:=.aCk].* X; +sbEK]1 Sy ek; 
y.:= c[kl .*.x8+.dEK I # y3+ TER; 
Kam Xl; 
putpixel (round(x*50)+320,430-round(y*40),10); 
end; 


repeat until keypressed; 
closegraph; 
textmode(lastmode) 

end. 


Der IFS-Code ist bei obigem Programm in Form von typisierten Konstanten gegeben. 
Zu beachten ist, daß die Wahrscheinlichkeiten über ihre Verteilungsfunktion einge- 
geben werden müssen. 

Für die Wahl der Wahrscheinlichkeiten p gibt Barnsley [02] (S.87) folgende Faustre- 
gel an. Die Wahrscheinlichkeit p, mit der eine Abbildung ausgeführt werden soll, 
wird näherungsweise gleich dem Verhältnis aus der Determinante der Abbildung zur 
Summe der Determinanten aller Abbildungen gesetzt. 


lad; _ b;c) 
p = 
2 lad; 57 b.c,| 
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13.2 Variationen des Farn-Codes 


Durch Variationen des Farn-IFS-Codes kann man zahlreiche baumähnlichen Struktu- 
ren finden. Der IFS-Code für viele weitere Figuren wird in Tabellenform gegeben. 


Bild 13.2 Farn nach Barnsley 


Die vollständigen Pascal-Programme dazu - einschließlich der hier nicht angegebenen 
Wahrscheinlichkeiten - finden sich auf der beigefügten Diskette unter der jeweiligen 


Tabellennummer. 
a b c d e f 
0 0 0 0.2 0 0 
0.2 -0.3 0.23 -0.05 0 0.5 
-0.05 0.23 -0.3 -0.2 0 0.5 
0.85 0 0 0.85 0 0.7 

Tab. 2 Farn2 

a b c d € f 
0 0 0 0.16 0 0 
0.2 -0.26 0.23 0.22 0 0.5 
-0.15 0.28 0.26 0.24 0 0.5 
0.85 0 0 0.85 0 0.7 


Tab. 3 Farn3 


ee 


13.2 Variationen des Farn-Codes 


a b € d e f 
0 0 0 0.16 0 0 
0.2 0.26 0.23 -0.22 0 6 
0.15 0.28 -0.26 0.24 0 0.44 
-0.85 0.04 0.04 0.85 0 t6 
Tab. 4 Farn4 
a b c d e f 
0 0 0 0.16 0 0 
0.2 -0.26 0 0.22 0 1.6 
0.15 0.28 0 0.24 0 0.44 
0.85 0.04 0 0.85 0 1.6 
Tab. 5 Baum1 
a b c d e f 
0 0 0 0.16 0 0 
0.2 -0.26 0 0.22 0 1.6 
0.65 0.28 0 0.24 0 0.44 
-0.85 0.04 0 0.85 0 1.6 
Tab. 6 Baum2 
a b c d € f 
0.81 -0.017 0.017 0.8 0.087 0.182 
-0.095 -0.385 -0.186 0.2 0.51 0.276 
-0.085 0.397 0.23 0.13 0.5 0. 
0 0. 0 0.227 0.46 0.017 
Tab. 7 Baum3 
Re en 
a b c d e f 
0.8 0 0 0.85 0.09 0.18 
-0.1 0.2 -0.4 0.2 0.51 0.28 
-0.09 -0.2 0.4 0.13 0.5 0 
Tab. 8 Baum4 
EREEERERE nen ne n 
a b c d 5 f 
ee ne 
0.75 0 0 0.8 0 0.2 
0.33 0.3 -0.3 0.3 0 0.2 
0.33 -0.2 0.5 0.2 0 0.2 
0 2000 oe EEE 


Tab. 9 Baum$ 
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13.3 Weitere IFS-Codes für Bäume 
Ein Beispiel eines einfachen Zweiges ergibt sich aus den 3 affinen Abbildungen 


a b c d e f 
-0.467 0.02 -0.113 0.015 0.4 0.4 
0.387 0.43 0.43 -0.387 0.256 0.522 
0.441 -0.091 -0.009 -0.322 0.422 0.506 


Tab. 10 Zweigi 


Schwieriger zu ermitteln ist die Darstellung eines gekrümmten Zweigs, erzeugt aus 5 


Affinitäten 
a b c d e f 
0.02 -0.05 0 0.29 0.65 0.38 
0.35 0.26 -0.22 0.41 0.14 0.53 
-0.05 -0.13 0 -0.47 0.74 1.03 
0.029 -0.25 0.18 0.4 0.7 -0.07 
0.48 0 0 0.5 0.26 0.14 


Tab. 11 Zweig 2 


Aus solchen einfachen Zweigen lassen sich komplexere Bilder erzeugen. 


Ein besonders schöner Baum ist durch Tab. 12 gegeben; hier benötigt man allerdings 


acht affine Abbildungen. 
a b c d e f 
0.008574  -0.12698 0.00535 0.20347 0.52394 0.16848 
0.4481 0.52868 -0.21712 0.53388 0.293427 0.49045 
0.0118 -0.00223 0.00007 0.37293 0.51142 0.01948 
-0.04474  -0.41931 0.43653 -0.04297 0.48088 0.09414 
0.63136 -0.13708 0.13026 0.66438 0.10622 0.23675 
0.27107 0.34582 -0.2493 0.37607 0.36307 0.35753 
-0.11509 0.29652 -0.21926 -0.1556 0.62457 0.43811 
0.01649 0 0 0.06127 0.50875 0.00221 


Tab. 12 Baum 6 


13.3 Weitere IFS-Codes für Bäume 


Bild 13.3 Baum nach Tab. 12 
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Nicht so kompliziert ist das Bild einer knorrigen alten Eiche, erzeugt durch die 5 


Affinitäten 


0.195 
0.462 
-0.058 
-0.035 
-0.637 


Tab. 13 Eiche 


-0.488 
0.414 
-0.07 
0.07 

0 


0.344 
-0.252 
0.453 
-0.469 
0 


0.443 
0.361 
-0.111 
-0.022 
0.501 


Bild 13.4 Eiche nach Tab. 13 
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Zwei kiefern-ähnliche Bäume sind gegeben durch folgende IFS-Codes 


a b c d € f 
-0.04 0 -0.19 -0.47 -0.12 0.3 
0.65 0 0 0.56 0.06 1.56 
0.41 0.46 -0.39 0.61 0.46 0.4 
0.52 -0.35 0.25 0.74 -0.48 0.38 
Tab. 14 Baum 7 
a b c d e f 
-0.04 0 -0.23 -0.65 -0.08 0.26 
0.61 0 0 0.31 0.07 2.5 
0.65 0.29 -0.3 0.48 0.54 0.39 
0.64 -0.3 0.16 0.56 -0.56 0.4 
Tab. 15 Baum 8 
13.4 Collage-Theorem 


Wie können die bisher besprochenen, komplexen Strukturen erzeugt werden? Färbt 
man bei einem der beiden Bäume alle Punkte einer bestimmten affinen Abbildung mit 
gleicher Farbe, so fällt auf, daß das ganze Bild in Teilstrukturen einer Farbe zerfällt. 
Dies ist der Inhalt des sog. Collage-Theorems von Barnsley (1985). Soll eine komple- 
xe Struktur mittels IFS erzeugen werden, so muß man verkleinerte Kopien des selbst- 
ähnlichen Gebildes so zusammensetzen, daß keine Lücken bleiben. Die Vereini- 
gungsmenge der Bildpunkte ergibt dann — anschaulich gesprochen — den gesuchten 
Attraktor. Eine genauere Formulierung findet sich bei Barnsley [02]. 


Mit Hilfe des Collage-Theorems sollen zwei Blattstrukturen erzeugt werden. Beson- 
ders schön läßt sich das Collage-Theorem an dem folgenden Ahornblatt demonstrie- 
ren, wenn man die Einzelabbildungen in getrennten Farben ausdruckt. 


a b c d e f 
0.65 0 0 0.6 0.175 0 
0.65 0 0 0.65 0.165 0.325 
0.32 -0.32 0.32 0.32 0.2 0 

-0.32 0.32 0.32 0.32 0.8 0 


Tab. 16 Blatt 1 
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Bild 13.5 Collage eines Blattes 


Ein Ahornblatt mit Stiel wird erzeugt durch die nachfolgende IFS 


a b c d c f 
0.352 0.355 -0.355 0.352 0.354 0.5 
0.353 -0.354 0.354 0.353 0.288 0.153 

0.5 0 0 0.5 0.25 0.462 
0.502 -0.002 0.002 0.588 0.25 0.105 
0.004 0 0 0.578 0.501 0.06 


Tab. 17 Blatt 2 


Ein spitz zulaufendes Blatt erhält man durch die nachfolgenden Affinitäten 


a b c d e f 
0.29 0.4 -0.4 0.3 0.28 0.44 
0.33 -0.34 0.39 0.4 0.41 0 
0.42 0 0 0.63 0.29 0.36 
0.61 0 0 0.61 0.19 0.23 
0.01 0 0 0.29 0.5 0.13 


Tab. 18 Blatt 3 
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13.5 Sierpinski-Dreieck 


Das Sierpinski-Dreieck hat 3 Ähnlichkeitsabbildungen. Sie bestehen aus den zentri- 
schen Streckungen mit dem Streckfaktor K=S verknüpft mit den Verschiebungen 


um die Strecke I in X- bzw. y Richtung. 
w(&y)=(5%3)) 
w(%y)=(2x+3,3)) 
w(x,y)=(3%,37+3) 


Schreibt man dies in Matrixform, so ergibt sich 


be} 
Her=6-6 HE) 


a b c d e f 
0.5 0 0 0.5 0 0 
0.5 0 0 0.5 0.5 0 
0.5 0 0 0.5 0 0.5 


Tab. 19 IFS-Code für Sierpinski-Dreieck 


Als Beispiel eines Basic-Programms soll hier ein Programm sierp2.bas zur Erzeugung 
des Sierpinski-Dreiecks gegeben werden. Der IFS-Code wird hier in Form von DATA- 
Werten eingelesen. 


'sierp2.bas 
'Sierpinski-Kurve mittels IFS 


DIM i AS LONG 

DIM p AS INTEGER 

DIM x, x1, y AS SINGLE 

DIM a(3), b(3), c(3), d(3), e(3), f(3) 


SCREEN 12: CLS 
WINDOW (-.05, -.05)-(1.05, 1.05) 
FOR i =1T0 3 
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ee 


READ ali), b(i), cli), d(i), e(i), fi) 
NEXT i 
RANDOMIZE TIMER 


FOR i = 1 TO 75000 
p = INT(3 * RND) + 1: "alle Abbildungen gleichwahrscheinlich 
xl = a(p) * x + b(p) * y+ e(p) 
y=c(p) * x +.d(p) *y + f(p) 


x=xl 

PSET (x, y), p 
NEXT i 
e$ = INPUT$(1): SCREEN 0 
END 
DATA 0.5,0,0,0.5,0,0 
DATA 0.5,0,0,0.5,0.5,0 
DATA 0.5,0,0,0.5,0,0.5 


13.6 Koch-Kurve 


Die Koch-Kurve hat 4 Ähnlichkeitsabbildungen. Zwei dieser Abbildungen sind zen- 
trische Streckungen mit dem Streckfaktor = eine davon ist mit einer Verschie- 


bung um die Strecke 2 5 in X-Richtung verknüpft. 


Die anderen beiden sind Drehstreckungen mit dem Drehwinkel +60°, verknüpft mit 
den Verschiebungen(1,0 ) bzw. (2 0). Die Abbildungen lauten somit 


SS 
w=(4%4>) 
2,1 
w „&y)= 4 x+2 4) 
wy)= (ex gBy+l, er RL 


w‚(x,y) = ee Wired g 


Schreibt man dies als Matrix-Abbildungen, so ergibt sich 


EHE 30h ER 


und 
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1 1 1 
3* 4° 
y) (433 + J\v) lo y) (41,3 # J\y) (o 


Daraus ergibt sich folgender IFS-Code 


a b c d e 
0.3333 0 0 0.3333 0 
0.3333 0 0 0.3333 0.6667 


0.1667 -0.28867 0.28867 0.1667 0.3333 
-0.1667_ __0.28867 0.238867 0.1667 0.667 


Tab. 20 IFS-Code für Koch-Kurve 


oO OOoO0OoOl- 


Als Beispiel eines C-Programms für ein IFS wird das Programm kochifs.c gegeben. 


/* kochifs.c */ 

/* IFS für Koch-Kurve */ 
#include <stdio.h> 
#include <graphics.h> 
#include <conio.h> 
#include <stdlib.h> 
include <time.h> 


float al4] = 10.3333,0.3333,0.1667 ,-0.1667); 
float b[4] = [0,0,-0.28867,0.28867}; 

float c[4J = (0,0,0.28867,0.28867); 

float d[4] = (0.3333,0.3333,0.1667,0.1667); 
float e[4] = 10,0.6667,0.3333,0.6667)}; 


float f[4] = (0,0,0,0); 


void main(void) 
{ 
long int i; 
Dintck: 
float x,y,x1; 
time_t now; 
int gdriver,gmode; 
gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); : 
srand((unsigned) time(&now) % 4001); 


X=y=0; 
for (i=1; i<=80000L; i++) x 
{ | 
k = rand() % 4; /* alle Abbildungen gleichwahrscheinlich */ 

xl = alk] * x # b[k] * y + e[k); 
y=cI[k]*x+dikl*y+flk); 

Kiel x];w zus 

putpixel((int)(600*x)+20,300-(int)(600*y),k+1); 
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} 
do {} while(!(kbhit())); 
closegraph(); 
return; 
} 


Bild 13.6 IFS nach Tab 18. 


13.7 Deterministisches IFS-Programm 


Das von Barnsley in Fractals Everywhere angegebene deterministische IFS-Programm 
für das Sierpinski-Dreieck ist sehr speicherplatzaufwendig, da alle Punkte in 2 zwei- 
dimensionalen Reihungen (array) gespeichert werden müssen. Dies führt dazu, daß 
bei einem 64K-Speicher pro Variable nur mit einem Gitter von 100x100 Pixeln gear- 
beitet werden kann. Eleganter ist das Vorgehen, die gesetzten Pixel direkt vom Bild- 
schirm zu lesen und das Umspeichern der Pixel durch Umschalten der aktuellen Bild- 
schirmseite zu bewerkstelligen. 


Das Turbo Pascal-Programm ifsdet.pas arbeitet auf einem 300x300-Gitter und könn- 
te daher auch im EGA-Modus betrieben werden. Dies wird auch empfohlen, wenn 
die verwendete Videoplatine im VGA-Modus nicht vollkommen kompatibel ist. 
program ifsdet; 


{ Deterministischer Algorithgs für Sierpinski-IFS | 
uses crt,graph; , 


const 
a: array[l0..3] of real 


(0.5 ‚0.5, 0.5.0); 


b: array[0..3] of real = (0,0,0,0); 

c: array[0..3] of real = (0,0,0,0); 

d: array[0..3] of real = (0.5,0.5,0.5.0); 
e: array[0..3] of real = (75,0,150,0); 
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f: array[l0..3] of real = (0,150,150,0); 

act_page: integer = 1]; 

last_page: integer = 0; 

var i,j,k,m,n,t,iter,color: integer; 
GraphDriver,GraphMode : integer; 


begin 

GraphDriver := 4; 

GraphMode := VGAHi; | Für nichtkompatible Graphik-Karten EGAhi ) 
InitGraph(graphDriver,GraphMode,''); 
SetVisualPage(0);SetActivePage(0); 

ClearDevice; 


for i:=0 to 299 do 
begin 
PutPixel(i+150,0,15); PutPixel(i+150,299,15); 
PutPixe1(449,i,15); PutPixel(150,1,15); 
end; 
for iter :=0 to 8 do 
begin 
SetActivePage(act_page) ;SetVisualPage(act_page); 
ClearDevice; 
for i:=0 to 300 do 
for j:=0 to 300 do 
begin 
SetActivePage(last_page); 
color := getPixel(i+150,j); 
if color 0 then 
for k:=0 to 2 do 
begin 
n := Round(alk]*i + b[k]*j + e[k)); 
m := Round(c[k]*i + d[k]*j + f[k)); 
SetActivePage(act_page); 
PutPixel(n+150,m,15); 
end; 
end; 
t:= act_page; act_page := last_page;last_page := t; 
end; 
repeat until keypressed; 
closegraph; 
textmode(lastmode) 
end. 


13.8 3D-Darstellung eines IFS 


IFS-Abbildungen können auch auf drei Variable verallgemeinert werden. Man erhält 
dann Abbildungen des Raumes auf sich 
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x ab c|\[(x)|[n 
ylald e f||yklg 


zZ 24 h m)\z T. 


Das 3-dimensionale Bild muß dann noch auf den Bildschirm projiziert werden. Das 
Vorgehen wird am Pascal-Programm farn3d.pas erklärt. Zum Zeichnen eines 
Farnblattes dient die Prozedur make_farn, an die die drei Drehwinkel «,ß,y (im Win- 


kelmaß) und die Farbnummer übergeben werden. Die resultierende Graphik findet 
sich als Farbtafel 6 im Farbteil des Buchs. 


program farn3d; 
( 3D-Darstellung des Farnkrauts |} 
uses crt,Graph; 


const 
a :array[l0..3J of real= (0,0.83,0.22,-0.22); 

b :array[0..3J of real= (0,0,-0.23,0.23); 

c :array[l0..3]J of real= (0,0,0,0); 

d :array[l0..3]J of real= (0,0,0.24,0.24); 

e :array[L0..3] of real= (0.18,0.86,0.22,0.22); 
f ;array[l0..3] of real= (0,0.1,0,0); 

g :array[0..3] of real= (0,0,0,0); 

h :array[l0..3] of real= (0,-0.12,0,0); 

m :arrayL0..3] of real= (0,0.84,0.32,0.32); 

n :array[0..3] of real= (0,0,0,0); 

q :array[L0..3] of real= (0,1.62,0.82,0.82); 

r :array[L0..3]J of real= (0,0,0,0); 

p :array[0..3J of real= (0.01,0.85,0.92,1.0); 
var GraphDriver,GraphMode: integer; 


procedure make_fern(alpha,beta,gamma,color:integer); 
var i,k : integer; 
ca,cb,cg,sa,sb,sg,vx,Vy,X,y,2,x1,yl,pk: real; 


begin 

ca := cos(alpha*0.0174533); cb := cos(beta*0.0174533) ; 
cg := cos(gamma*0.0174533); sa := sin(alpha*0.0174533); 
sb := sin(beta*0.0174533); sg := sin(gamma*0.0174533); 


x:=0;y:=0; 2 :=-0; 
for i:=1 to 25000 do 
begin 
pk := random; 
if pk < p[0] then k := 0 
else if pk < p[l] then k := 1 
else if pk < p[l2] then k := 2 
else k := 3; 
xl := (alk]* x + bE[k] * y + c[k] * z + n[k)); 
yl := (d[k]* x + e[k] * y + f[k] * z + q[k)): 
z := (glk] * x + hik] *y+mIik] * z+ r[ck)); 
x := xl; y :=yl; 
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vx ı= x*ca + y*cb + z*cg; | Projektion | 


vy := x*sa + y*sb + z*sg; 


PutPixel(round(vx*40)+365 ,400-round(vy*50),color); 


end; 


end; 

begin 

GraphDriver := 9; 

GraphMode := VGAHi; I. VGA-Modus ] 
InitGraph(graphDriver ‚GraphMode,''); 
ClearDevice; 

randomize; 
make_fern(30,115,25,2); 
make_fern(45,105,70,14); 
make_fern(15,70,10,11); 
make_fern(-20,70,120,10); 

repeat until keypressed; 
closegraph; 

textmode(lastmode) 

end. 


13.9 Ausblicke und Ergänzungen 


Übung 13.9.1 


Realisieren Sie den Binärbaum, der durch folgenden IFS-Code gegeben ist. 


a b c d e f 
0 0 0 0.5 0 0 
0.4 -0.4 0.4 0.4 0 0.2 
0.4 0.4 -0.4 0.4 0 0.2 
Tab. 21 Binärbaum 
Übung 13.9.2 
Das Dürer-Fünfeck hat folgenden IFS-Code 
a b c e f 
0.382 0 0 0.382 0.3072 0.6190 
0.382 0 0 0.382 0.6033 0.4044 
0.382 0 0 0.382 0.0139 0.4044 
0.382 0 0 0.382 0.1253 0.0595 
0.382 0 0 0.382 0.4920 0.0595 


Tab. 22 Dürer-Fünfeck 
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Übung 13.9.3 
Einen Ternärbaum oder 3-strahligen Stern liefert der folgende IFS-Code 


d [a f 


a b c 
0.255 0 0 0.255 0.3726 0.6714 
0.255 0 0 0.255 0.1146 0.2232 
0.255 0 0 0.255 0.6306 0.2232 
0.370 -0.642 0.642 0.370 0.6356 -0.0061 


Tab. 23 Ternärbaum 


Übung 13.9.4 ‘ 
Eine Spirale mittels Kreisinversion und Drehstreckung zeigt folgender IFS-Code 


a b c d € f 
0.787879  -0.424242 0.242424 0.859848 1.758647 1.408065 


-0.121212 0.257576 0.151515 0.053030 -6.721654 1.377236 
0.181818 __ -0.136364 __ 0.090909 0.181818 6.086107 1.568035 


Tab. 24 Spirale 


Bild 13.7 IFS nach Tab. 15 


N ERSTER RR. a ni) 


Übung 13.9.5 
Ebenfalls eine Kreisabbildung ist se IFS-Code für Farbtafel 4 


a 


0.894130 
0.894449 
0.0570061 
0.0565082 
0.0569784 
0.0564028 


b 


0.102622 
0.0998037 


7919: © 


Tab.25 Kreisabbildung 


c 


-0.102622 
0.0998037 
0 


0 
0 
0 


d 


0.894130 
0.894449 
0.0525302 
0.0499227 
0.0516372 
0.0504088 


e 


0 

0.1 
0.9226135 
0.4754304 
0.0101721 
0.4433266 


f 


0.1 

0 
0.492980 
0.922063 
0.481853 
0.013917 


14 Lindenmayer-Systeme 


14.1 Definition von L-Systemen 


1956 publizierte N. Chomsky die Theorie der formalen Grammatiken. Neben 
Chomsky wurde auch 1959/60 von J. W. Backus und P. Naur eine formale 
Beschreibung von Programmiersprachen angegeben, die sie zur Definition von 
ALGOLS60 entwickelt hatten, die nunmehr BNF (Backus-Naur-Form) genannt wird. 
Backus war übrigens maßgeblich beim Entwurf von FORTRAN beteiligt gewesen. 
Von S.Ginsburg u.a. wurde dann 1962 die Gleichwertigkeit der BNF-Beschreibung 
mit den kontextfreien Chomsky-Grammatiken erkannt. Auf Grund dieser formalen 
Beschreibungen konnte dann 1968 A. Lindenmayer die Theorie der L-Systeme 
entwickeln. 


Ist V ein Alphabet von Zeichen, V* bzw. V* die Menge aller bzw. aller nichtleerer 
Wörter über V, so stellt das Tripel (V,V*,P) ein kontextfreies L-System dar, das als 
OL-System bezeichnet werden soll. Dabei stellt PCVxV" die (endliche) Menge der 
Produktionsregeln dar. Eine Produktionsregel (a,x)e P kann man schreiben als 
Zuordnung ax. 


Als Beispiel soll das Alphabet {a,b} behandelt werden mit den Produktionsregeln 
a>ab, b>a 


Ausgehend vom Grundwort (Axiom) a, lassen sich durch gleichzeitige Anwendung 
der Produktionsregeln folgende Zeichenkerten ableiten 


Schritt Zeichenkette 
1 b 

2 a 

3 ab 

4 aba 
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Schritt Zeichenkette 

5 abaab 

6 abaababa 

7 abaababaabaab 


Ein OL-System ist somit charakterisiert durch die Angabe eines Axioms und der 
zugehörigen Produktionsregeln. Das OL-System für die Kochsche Kurve besteht aus 
dem Axiom F und den Produktionsregeln 


E>E-F++F-F, ++ -72- 
Dabei kann F als Forward; d.h. als Zeichnen einer Strecke, + als Linksdrehung und - 
als Rechtsdrehung interpretiert werden. Die Gültigkeit der beiden letztgenannten 


Produktionsregeln wird, sofern nicht anderes angegeben ist, als Identitätsregeln 
stillschweigend vorausgesetzt. 


14.2 Die Turtle-Interpretation 


P. Prusinkiewcz konnte 1986 eine Interpretation der OL-Systeme mit Hilfe der von S. 
Papert 1980 entwickelten Turtle-Graphik angeben. 


Symbol Turtle-Aktion 


F Vorwärtsbewegung mit Zeichenstift 

f Vorwärtsbewegung ohne Zeichenstift 

- Linksdrehung um vorgebenen Winkel 

- Rechtdrehung um vorgebenen Winkel 

[ Speichern des Turtle-Zustands auf einem Stack 
] Abruf des Turtle-Zustands vom Stack 


EEE ES En het Wera = may Veran ar Eat SE u 
Sind (x,y) die momentanen Koordinaten der Turtle und ist ihre Richtung (Heading) 
durch den Winkel @ gegeben, so kann der Turtle-Zustand durch das Tripel (x,y,9) 


beschrieben werden. Durch die Kommandos ändert sich der Turtle-Zustand beim 
vorgebenen Drehwinkel ö wie folgt 


Kommando neuer Zustand 
F (x+lcosQ,y+lsinp,@) 
+ (x,y,9 -5) 


- (x,y,9 +5) 


m — — ——mm—— 


14.3 Pflanzel 


 — 


Diese Rechenoperationen können leicht in einer Programmiersprache realisiert 
werden. 


14.3 Pflanzel 


Bild 14.1 Busch nach 
Lindenmayer 1.24C 


Lindenmayer Abb.1.24C 


Als erstes Beispiel soll die Pflanze von Lindenmayers Buch [27] Seite 25, Bild 1.24c, 
simuliert werden. Sie hat das Axiom F, die Produktionsregel 


F>FF-[-F+F+F]l+l+F-F-F] 
Die Rekursionstiefe soll n=4, der Winkel ö =22.5° betragen. 


Bild 14.1 bzw. Farbtafel 8 wird erzeugt von dem Turbo Pascal-Programm busch.pas. 


program busch; 
{ Lindenmayer, Algorithmic Beauty of Plants, Bild 1.24C } 


uses crt,graph; 


const r = 4; L( Rekursionsstufe] 

var col,i,Ip,m,nl,s : integer; 
delta,h,phi,x,y : real; 
u,v,w .: arrayl1..16] of real; ( Stacks | 
n : array[1..250] of integer; 
P,prod : string; 
axiom,q,t : char; 
Graphdriver ,Graphmode: integer; 


procedure graphics; 
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ee ET nn.) 
begin 
moveto(round(x*200)+280,-round(y*180)); 
case t of 
'+': phi := phi + delta; 
’-'z phi := phi - delta; 
'F': begin 
x :=x + h* cos(phi); 
y:=y+h* sin(phi); 
]ineto(round(x*200)+280,-round(y*180)); 
end; 
"[': begin 
m:=m+1; ulm) :=x; 
v[m) := y; w[m] := phi; 
end; 
']': begin 
x := ulm); y := vIm); 
phi := w[m]; m:=m-|]; 
moveto(round(x*200)+280,-round(y*180)); 
col := 1 + (1 + col) mod 3; 
setcolor(co]l) 
end 
end 
end; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 


axiom := 'F'; { Axiom } 

prod := 'FF-[-F+F#FJ+L+F-F-F]'; { Produktionsregel ) 
x:=0; y := -2.5; { Startposition ] 

phi := pi/2; { Orientierung } 

delta := pi/7; h := 0.04; { Winkel ‚Schrittweite ] 


Ip := length(prod); 


s := 1; nl := 0; pl[1] := 'F'; 
n[1] := 0; m := 0; 

col := 1; setcolor(co]); 
while s > 0 do 


begin 
while nl < r do 
begin 
t = pls); nlise’nls] + 1:5 :='s - 1; 
case t of ; 
'F', for ij := 0 to Ip - 1 do 
begin 
q := prod[1p-i]; 
s;=5 41; 
p[s] := q; n[s] := nl 
end; 


PO IR ET dc IF 


ne 
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begin 
s:=s +1; pls] := tt; nls] := nl 
end; 
end; 
end; 

t := pls]; 
graphics; 
s:=s- 1; nl := nls] 
end; 
repeat until keypressed; 
closegraph; 
textmode(lastmode) 
end. 


14.4 Weitere Pflanzen von Lindenmayer 


Linker. ea. 1.208 er m Lindenmayer-Pflanze- 


Die Pflanze der Lindenmayer-Abb. 1.24A hat das Axiom F,, die Produktionsregel 
F — FI+F]FI-FI[F] 


Die Rekursionstiefe soll n=4, der Winkel $ =20° betragen. Es ergibt sich das Bild 

14.2. Ähnlich ist die Pflanze der Lindenmayer-Abbildung 1.24B. Sie hat dieselbe 

org Jedoch beträgt die Rekursionstiefe n=5, der Winkel &=25.7° 
ild 14.3.) 


200 14 Lindenmayer-Systeme 


En 


Bild 14.3 Lindenmayer-Pflanze 
Lindermayer Abb.1.24A 1.24A 


14.5 Koch-Kurve 
Das OL-System der Koch-Kurve ist durch die nachfolgende Tabelle gegeben. 


Koch-Kurve 


n=4 d = 60° 
F 
F>F+F--F+F 


Dieses L-System wird vom Quick Basic-Programm koch] ind.bas ausgeführt. 


"kochlind.bas 
'Koch-Kurve als Lindenmayer-System 


CONST r = 5: 'Rekursionsstufe 
CONST PI = 3.141529653#} 

DIM i, j AS INTEGER 

DIM h, phi, x, y AS DOUBLE 


SCREEN 12: CLS 
WINDOW (-4, -3)-(4, 3) 
LINE (-4, -3)-(4, 3), „ B 


x=-3.6: y = -.5: phi = 0: h= .03: col = 1 
AXIOM$ = "F" 
PROD$ = "F+F--F+F" 
way$ = AXIOM$ 
FOR j=-1T0r 
ws = "" 
FOR i = 1 TO LEN(way$) 
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s$ = MID$(way$, i, 1) 
IF s$ = "F" THEN q$ = PROD$ ELSE a8 = s$ 


ws = w$ +. a$ 
NEXT i 
way$ = w$ 
NEXT j 


PRESET (x, y), col 

FOR i = 1 TO LEN(way$) 
s$ = MID$(way$, i, 1) 
SELECT CASE s$ 


CASE "+" 

phi = phi + PI / 3 
CASE-*=" 

phi = phi - PI / 3 
CASE "F" 


x=x + h * CO0S(phi) 
y=y+h* SIN(phi) 
LINE (X, y), coll 
col =1 + (1 + col) MOD5 
END SELECT 
NEXT i 
LOCATE 29, 4: PRINT "Koch-Kurve als L-System"; 
e$ = INPUT$(1): SCREEN 0 
END 


14.6 Drachenkurve 


Die Drachenkurve kann dargestellt werden durch das nachfolgende OL-System 


Drachenkurve 


n=ll d =9%0° 
F 
F>F+HG+ 


G>-F-G 


Da diese Kurve zwei Produktionsregeln hat, muß das Basic-Programm geeignet 
modifiziert werden. 


'draglind.bas 
‘Drachenkurve mittels L-System 


CONST r = 11: 'Rekursionstiefe 
CONST PI = 3.141529653#F 

DIM col, i, j AS INTEGER 

DIM delta, h, phi, x, y AS DOUBLE 


SCREEN 12: CLS 
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WINDOW (-4, -3)-(4, 3) 
LINE (-4, -3)-(4, 3), , B 
AXIOMS = "F" 

PRODI$ = "F+G+" 

PROD2$ = "-F-G" 


x = 1: y = -1.6: 'Startposition 
phi = 0: "Orientierung 
delta = Pl / 2: h= .1: "Winkel, Schrittweite 
co] = 1: way$ = AXIOM$ 
FOR j=-1T0r 
w = "" 
FOR i = 1 TO LEN(way$) 
s$ = MID$(way$, i, 1) 
SELECT CASE s$ 
CASEZF® 
a$ = PRODI$ 
CASE "G" 
q$ = PROD2$ 
CASE STAR 3. 
q$ = s$ 
END SELECT 
ws = w$ + a$ 
NEXT i 
way$ = w$ 
NEXT j 
PSET (x, y), 14 
FOR i = 1 TO LEN(way$) 
s$ = MID$(way$, i, 1) 
SELECT CASE s$ 
CASE? 2 
phi = phi - delta 
CASER nt? > 
phi = phi + delta 
CASETE. GE 
x=x+h* CoS(phi): y=y+h* SIN(phi) 
LINE -(x, y), col 
col = 1 + (1 + col) MOD 4 
END SELECT 
NEXT i 
e$ = INPUT$(1): SCREEN 0 
END 


| 
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14.7 Pfeilspitzkurve 
Die Pfeilspitzkurve von Sierpinski ist gekennzeichnet durch das folgende OL-System 


Pfeilspitzkurve 
n=6 öd = 60° 


G 
F>G+HF+G 
G>F-G-F 


Bild 14.4 Pfeilspitzkurve mittels 
L-System 


Pfeilspitzkurve als L-Systen 


Die Kurve kann mit dem Programm zur Drachenkurve nach Ändern der 
Produktionsregeln erzeugt werden. 


14.8 Hexagonale Gosper-Kurve 


Die hexagonale Gosper-Kurve hat das folgende OL-System 


hexagonale Gosper-Kurve 


n=4 ö = 60° 
F 
FOF+G++G-E-=ER=GE 


G>-F+GG++G+F--F-G 


| 
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Die Kurve kann wieder mit dem Programm zur Drachenkurve realisiert werden. 


Sosper-Rurve als L-Systen 


14.9 Kreuzstichkurve 


Kreuzstich-Rurve als L-Systen 


Bild 14.5 Gosper-Kurve als L- 
System 


Bild 14.6 Kreuzstichkurve als L- 
System 


14.10 Hilbert-Kurve 


1440 Hüberekurmei a _ | 777 7 77 


Die Kreuzstichkurve von T. Vicsek hat das nachfolgende OL-System 


Kreuzstichkurve 


n=4 d = 60° 
F 
F>F+F-F-F+F 


Diese Kurve benötigt nur eine Produktionsregel; es kann daher das Programm 
koch.bas oder busch.pas verwendet werden. 


14.10 Hilbert-Kurve 


Die von Hilbert 1891 angegebene Kurve ist eine der bekannten Monsterkurven. Sie 
entspricht dem nachstehenden OL-System 


Hilbert-Kurve 
n=6 ö = 60° 


>.$ 
X->-YF+XFX+FY- 
Y->+XF-YFY-FX+ 


Bild 14.7 Hilbert-Kurve als 
L-System 


Hilbert-Kurve als L-Systen 
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Es kann wieder das Programm draglind.bas verwendet werden. Zum Start ist hier eine 
Drehung notwendig (Bild 14.7). 


14.11 Minkowski-Kurve 
Die Minkowski-Kurve hat das folgende OL-System 


Minkowski-Kurve 


n=3 d = 90° 
F 
F>F+F-F-FF+F+F-F 


Da nur eine Produktionsregel benötigt wird, kann hier das Programm zur Koch- 
Kurve verwendet werden (vgl. Bild 14.8). 


Bild 14.8 Minkowski-Kurve als 
Minkouski-Kurve als L-Systen L-System 


15 Julia-Mengen 


Julia-Mengen sind nach dem französischen Mathematiker Gaston Julia benannt, der 
1918 mit seinem Aufsatz Memoire sur literation des fonctions rationelles im Journal 
de Math. Pure et Appl. seine Theorie publizierte. Die (gefüllte) Julia-Menge K_ der 
quadratischen komplexen Funktion Q,(z)= Z+c ist die Menge aller Punkte der 
komplexen Ebene, für die der Grenzwert der iterierten Abbildung beschränkt bleibt. 


0") < -) 


K, [re C;. lim 
no 


Die Julia-Menge J, ist dann der Rand der Menge K.: J. =dK..Die ersten drei Iterier- 
ten der Funktion Q,(z) = 2? +c sind dabei 


zo +cAld +) +c>l@ +0” +0) +c 


Bild 15.1 Lage der Parameter 
der Julia-Mengen am Apfel- 
männchen 


Einige bekannte Julia-Mengen werden hier tabellarisch angeführt. 
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1 
Parameter Name Abbildung 

—1 San Marco 15.4 

0.360284 +0.1i Julia-Drachen 15.2 

—0.122+0.745i Douadys Kaninchen 153 

i Dentrit 15.6 

0.11301- 0.67037i Fatou-Staub 15:7. 
—0.1011+0.9563i Misiurewicz-Punkt 153 


Die zugehörigen Abbildungen finden sich verstreut in den folgenden Abschnitten. Sie 
können mit den angegebenen Programmen erzeugt werden, indem man die Parameter 
der Juliamenge, getrennt in Real- und Imaginärteil, als Konstante ins Programm ein- 
gibt; z.B. Douadys Kaninchen für a=-0.122; b= 0.745. Die Lage der Parameter in der 


komplexen Zahlenebene für einige Julia-Mengen sind in Bild 15.1 ersichtlich. Die 
interessanten Julia-Mengen befinden sich am Rand des Apfelmännchens. 


15.1 Eigenschaften von Julia-Mengen 


Juliamengen sind für alle komplexen Zahlen außer für c=01c=-2 fraktale Gebilde. 
Der Ausnahmefall c=0 ist leicht einzusehen. Für die Funktion Q,(z) = z” ist nämlich 


der Einheitskreis invariant; d.h. Fixpunktmenge. Dies sieht man an der Betragsglei- 
chung 


d=1=kl=1 
Es gilt somit Jg ={ze C:lJ=1} Ko=tze Cld<ı} 


Im zweiten Ausnahmefall c=-2 stellt die Julia-Menge ein reelles Intervall dar: 
Js=K,=|-22]CR. Ein mathematischer Beweis findet sich bei Devaney[06] oder 
Zeitler[40]. 


Julia-Mengen zeigen folgende Eigenschaft: Für alle komplexen Zahlen ce C mit 

\c|>2 stellt die gefüllte Julia-Menge eine Cantor-Menge dar; d.h. sie zerfällt in ein- 

zelne Punkte. Es gilt dann J,=K,. Dieser Satz läßt sich noch genauer formulieren: 

Die Menge aller komplexen Zahlen, für die die Julia-Mengen zusammenhängend 

sind, ist - Sie ahnen es schon — genau die Mandelbrot-Menge. Weitere wichtige Ei- 

genschaften der Julia-Mengen sind: 

» Jede Julia-Menge ist kompakt, d.h. abgeschlossen und beschränkt. 

>» Gehört C zum »Bauch« der Mandelbrot-Menge, so stellt J. eine nicht-differen- 
zierbare, geschlossene Kurve ohne Überschneidungen dar. Genauer gilt: Für reelle 
ce [-3;4] stellt J eine Jordankurve dar. 


Bu 


2Diei ' s 
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Tr 


Das Bild von J, ist punktsymmetrisch. 


Gehört ein Punkt zu J., gehört auch jeder Vorgänger und Nachfolger des Punktes 
auf der Bahn von Q,(z) zu J.. 


» J, istein Attraktor für die inverse Funktion z— Q,(z): Gehört ein Punkt zu J_, so 
c 


wird J. durch die Vorgänger des Punktes auf der Bahn von Q(z) vollständig 
überdeckt. 


Die drei letztgenannten Eigenschaften werden im folgenden Abschnitt zur Formulie- 
rung eines Algorithmus benutzt. 


Bild 15.2 Julia-Drachen 


15.2 Die inverse Iteration 


Es läßt sich zeigen, daß alle abstoßenden Fixpunkte einer periodischen Bahn stets zur 
Julia-Menge J, gehören. Dies macht man sich am besten an einem Beispiel klar. Die 


Fixpunktgleichung lautet z= 2 +c=z°-z+c=0. Für das Beispiel c=0.5+05: er- 
hält man die Lösungen 


2, =1.408- 0.2756, = 0.408 + 0.2751. 
Die Ableitung der quadratischen Funktion ergibt 
0.d=7?+>0d)=% 


Das Einsetzen des ersten Punktes zeigt, daß zumindest z, abstoßend ist 


0:(a)]= pi] = 2V1408? +0275? =2869> 1 
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Bild 15.3 Douady’s Kaninchen 


Solche abstoßenden Punkte liegen sogar dicht in J.. Wegen dieser Eigenschaften 
rechnet man die Iteration w — z? +crückwärts. 


Bild 15.4 San Marco-ähnliche 
Julia-Menge 


Dabei ergibt sich allerdings das Problem der nicht eindeutigen Umkehrbarkeit. Löst 
man die Gleichung w=2z?+c nach z auf, so ergibt sich 2=t+vw-c 
Man behilft sich so, daß man mit Hilfe eines Zufallszahlen-Generators auslost, wel- 


che der komplexen Wurzeln gewählt wird. Die komplexe Wurzel kann mittels Polar- 
koordinaten berechnet werden: 
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Yz = (re'*)® = +tyre'? 


Der so erhaltene Algorithmus heißt inverse Iterations-Methode (IIM). Er wird durch 
das folgende Turbo Pascal-Programm juliim.pas beschrieben. 


program juliim; 
[ Inverse Iterations-Methode für Julia-Mengen |] 
uses crt,graph; 


const a = -1; b = 0; ( Parameter der Julia-Menge |] 
var r,X,y,wxX,wy‚,theta : real; 

i : integer; 

p,q : integer; 

Graphdriver ‚Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, 'c:\tp\bgi'); 
SetgraphMode(Graphmode) ; 
rectangle(0,0,639,479); 

moveto(8,8) ;outtext( 'Juliamenge J(-1,0)'); 


x :=0; y:=0; 
for i:=1 to 32000 do 
begin 
Wwx := X-a; 
wy := y-b; 
if wx>0 
then theta : 
else if wx<0 
then theta := arctan(wy/wx)+pi 
else theta := pi/2; 
theta := theta/2; 
r := sqart (wx*wx+wy*wy); 
if random<0.5 then r := sqrt(r) else r := -sqrt(r); 
x := r*cos(theta); 
y := r*sin(theta); 
p := 320+round(x*150); q := 240-round(y*150); 
if i>20 then 
begin 
putpixel(p,q,11); putpixel(640-p,480-q.11); 
if b=0 then 
begin putpixe1(640-p,q,11); putpixe](p,480-q,11) end 
end; 
end; 
repeat until keypressed; 
closegraph; 
textmode(lastmode) 
end. 


arctan(wy/wx) 


u 
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Die Real- und Imaginärteile a,b des Parameters sind im Programm als Konstante 
definiert. Beim Punktesetzen wurde hier von der Punktsymmetrie der Julia-Mengen 
Gebrauch gemacht. Verschwindet der Imaginärteil des Parameters, so kommt noch 
eine Achsensymmetrie dazu. 


Bild 15.5 Julia-Menge an einem 
Misiurewicz-Punkt 


Hier wird das komplexe Wurzelziehen algebraisch durchgeführt. Ist w=u+vi die 
Wurzel von z= x+yi, so gilt w® =z. Trennung in Real- und Imaginärteil zeigt 
w—-v=xaıw=y 


Ebenfalls läßt sich die Gleichung u? +v? = x? +y- herleiten. Auflösen liefert den 
gesuchten Real- und Imaginärteil der Wurzel 


u= syx+y3@? +y2) 
y= 4/-x+y3@° +y?) 


15.3 Modifizierte inverse Iteration 


Bei einigen Parameterwerten werden die Punkte der Julia-Menge nicht mit gleicher 
Wahrscheinlichkeit gezeichnet. Man führt daher ein Backtracking-Verfahren ein, das 
den Besuch der meisten Punkte sicherstellt. Zur Speicherung der Punkte wird ein 
zweidimensionales Feld benützt. 


15.3 Modifizierte inverse Iteration 213 
a 


Das Verfahren ist im Quick Basic-Programm julbak.bas implementiert. 


'julbak.bas 
‘Backtracking für Julia-Mengen 


CONST a = -.2: b= .74: "Parameter der Julia-Menge 

CONST p = 64: 'Backtracking-Tiefe 

CONST ml = 200: m2 = 160: "Auflösung 

DIM al, bl, dl, d2, rl, x, xd, x0, x1, y, yd, yO, yl AS SINGLE 
DIM g, m, nl, n2 AS INTEGER 

DIM x(128), y(128), z(128), s(128) 

DIM t(1 TO ml, 1 TO m2) AS INTEGER 


SCREEN 12: CLS 
WINDOW (-2, -1.5)-(2, 1.5) 
BEINE: (>2,°-1.5 1202,71 


di=4/ml:d=-3/m 

all=-1°/. 872 a7/ 2a been 2 

rl = SOR(al * al + bl * bl) 

xd = 1/ 2 + SQR(rl + al): yd = SQR(rl - al) 


IF b> 0 THEN yd = -yd 
x=-xd: y= -yd m=0:g9=0 
GOSUB graph 
DO 
nl =.1NT((2 = x) /dl)2'n2%= INTCCL.57-7y) 72) 
IF g< p AND t(nl, n2) < 20 THEN 
m=m+1l:g= g+ 1: GOSUB trafo 
t(nl, n2) =t(nl, n2) +1 


x=xl:y=yl 
x(m) = x2: y(m) = y2: s(m) =g 
ELSE 
x = x(m): y = y(m)z.g = s(m) 
m=-m-]1 
END IF 


LOOP UNTIL m < 0 
LOCATE 2, 2: PRINT "Julia-Menge J(-2,.74)" 
e$ = INPUT$(1): SCREEN 0 
END 
trafo: 

x0= (x -a) /2: yO=(y-b)/2 

r = SQR(x0 * x0 + y0 * y0) 

x1 = -SQR(r + x0): yl = -SQR(r - x0) 

IF yo < 0 THEN yl = -yl 

x2 = -xlı y2 = -yl 
graph: 

PSET (x, y). 13: PSET (-x, -y), 13 

IF b= 0 THEN PSET (x, -y), 13: PSET (-x, y), 13 
RETURN 
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15.4 Escape-Time-Algorithmus 


Bild 15.6 Dentrit 


Ein Algorithmus, der eine Einfärbung einer Julia-Menge erlaubt, ist der sog. Escape- 
Time-Algorithmus. Für alle Punkte eines bestimmten Rechtecks wird die quadrati- 
sche Iteration gestartet. Im Lauf der Rechnung wird entschieden, ob der Punkt zur 
Julia-Menge gehört. Dies ist der Fall, wenn die Bahn des Punkts nach Unendlich geht 
oder sich einem Fixpunkt nähert. Färbt man die Punkte entsprechend der Schrittzahl 
ein, so erhält man ein Farbbild der Julia-Menge. Um komplexe Arithmetik zu ver- 
meiden, zerlegt man die komplexe Funktion z > z?+c in Real- und Imaginärteil. Mit 
z=x+yi und c=a+bi ergibt sich die Zerlegung 


xoxX-y+a y>2ytb 


Eine Realisierung des Algorithmus zeigt das Quick Basic-Programm julia.bas. 


"julia.bas 
'Escape-time-Algorithmus für Julia-Mengen 


CONST a = -.12: b= .74: "Parameter der Julia-Menge 
CONST xmax = 1.6: ymax = 1.2: "Fenster 

CONST ni = 320: :n2 = INT(n1 * ymax / xmax): "Auflösung 
CONST kmax = 200 

DIM i, il, i2, j. 31. 32. k AS INTEGER 

DIM x, y, sl, s2, s3 AS DOUBLE 

DIM col(15) 


SCREEN 12: CLS 
FOR i = 0 TO 15: READ col(i): NEXT i 
IF b= 0 THEN n3 = 0 ELSE n3 = n2 


SDistahzVerfah | 


FOR i=0T0nl 
FOR j = -n3 TO n2 
11 = 320, + 1.12 = 320 ie 
j17=240,= 3: J2=2240 475 
x=i* xmax /nl: y=j * ymax / n2 
FOR k = 1 TO kmax 
KERSTIN FIIR EYLBIZEIERR ZB 
ER NEN 
si = (x. xl) EEE X Hy SYD (yzzry]) 
IF s > 1000 THEN ] = k MOD 16: GOTO graphik 
IF sl <, .0001 THEN ] = k MOD 16: GOTO graphik 
x=xl:y=yl 
NEXT k 
1=0 
graphik: 
PSET (11,31), col (1): PSET. (12,232). colcı) 
IF b = 0. THEN PSET (il, 32), col(1): PSET (i2, jl), col(l) 
NEXT J 
NEXT i 
e$ = INPUT$(1): SCREEN 0 
END 
DATA 0,1,9,4,12,2,1,9,4,12,2,1,9,4,12,2 


15.5 Distanz-Verfahren 


Ein sehr effizienter Algorithmus ist die sog. Distanz-Methode. Dabei wird das Ein- 
färben der Punkte gemäß der Distanz d(c,J) des Punktes von der Julia-Menge durch- 
geführt. 


Bild 15.7 Fatou-Staub 
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Diese Distanz kann näherungsweise abgeschätzt werden durch 


Zn Inlz, 
Z| 
dabei ist z, die Bahn des Punktes und z, seine Ableitung. Die Ableitungen werden im 


Programm ermittelt. Die Distanz-Methode ist im Turbo C-Programm juldist.c im- 
plementiert. 


d(c,J) = 


/* juldist.c */ 
/* Distanz-Mathode für Julia-Mengen */ 


#include <stdio.h> 
#include <graphics.h> 
#include <conio.h> 
#include <stdlib.h> 
#include <math.h> 


const double a=-0.11031,b=0.67037; 
const double xmax=1.4,ymax= 1.4; 


void main(void) 

| 

double eps,dist,s1,52,53,x,x1,y,yl,u,ul,v,vl; 
int i,j,.k,nl,n2; 

int gdriver,gmode; 

gdriver = 9; gmode = VGAHI; 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 


nl = 250: n2 = (int) (nl * ymax / xmax); 
eps = xmax/nl; 
for (i=0; i<=nl; i++) 
for (j=-n2; j<=n2; j++) 
{ 
if (i==0 && j==0) break; 
x=i*tep; y=j* ymax/n2; 
u=1;v=0; 
for (k = 0; k<=200; k+t+) 


KIEEEKIE RAZER, 
Ya RE HD, 
ul=2*(u*x-v*y) 
vl=2*(u*y+tv*rx) 


sIl=x1*x1+yl*yl + 1.e-1l0; 

s2 = log(sl); 

sqrt(ul * ul +vi* vl + 1.e-10); 
if ((s1 > 50.) |] (s3 > 50.)) 


7) 
w 
u 


dist = sqrt(sl) * s2 / s3; 
if (dist < eps) 
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( 
putpixel (320+1,240-j,1+k/20): 
putpixel (320-1,240+j,1+k/20); 
} 

break; 


} 
} 
moveto(8,8) ;outtext("Julia-Menge J(-0.11031,0.67037)"); 
do {} while(!(kbhit())); 
closegraph(); 
return; 
} 


15.6 Binäre Dekompositions-Methode 


Bild 15.8 Binäre Dekomposition 
von San Marco 


Bei der binären Dekompositions-Methode (BDM) wird der Außenraum einer Julia- 
Menge mit zwei Farben so eingefärbt, daß aneinanderstoßende Gebiete verschieden- 
farbig sind. Das Quick Basic-Programm führt die binären Dekompositions-Methode 
durch; dabei wird das Außengebiet schwarz-weiß, die gefüllte Juliamenge weiß einge- 
färbt. Die Farbgebung kann leicht geändert werden. Dazu muß die Variable co) die 


entsprechenden Farbwerte erhalten. 


'julbin.bas 
'"Binär-Dekomposition von Julia-Mengen 


CONST a = -1!: b = 0!: "Parameter der Julia-Menge 
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CONST xmax = 1.8: ymax = 1.6: 'Bildschirmfenster 
CONST ni = 320: n2 = 240: "Auflösung 


SCREEN 12: CLS 


FOR i = -nl TO nl 
FOR j = -n2 TO n2 
il=320+i:x=i * xmax /nl 
jl = 240 - j: y=j * ymaxx /n2 
FOR k = 1 TO 100 
SEARCH Y 
IF (s > 100) THEN 
IF y> 0 THEN col = 0 ELSE col = 15 
GOTO graphik 
END IF 
ıl=ax*tx-y*y+aryl=2*x*y+b 
sl = (x -x1) * (x - xl) + (y-yl) *% (y -yD 
IF si < .0001 THEN GOTO naechst 
x=xl:y=yl 
NEXT k 
col = 15 
graphik: 
PSETM 1177319250] 
naechst: 
NEXT j 
NEXT i 
LINE (0, 0)-(639, 479), „ B 
e$ = INPUT$(1): SCREEN O 
END 


15.7 Julia-Menge z = sin(z) 


Ebenso wie für die quadratische Funktion O.(2)=z”+c, kann für jede komplexe 


Funktion eine Julia-Menge erklärt werden. Die Iterationsform für das gewählte Bei- 
spiel heißt hier z=sinz (Bild 15.9). 


Um komplexe Rechnung zu vermeiden, wird hier die komplexe Funktion in Real- 
und Imaginärteil zerlegt. Es gilt mit z=x+yi 


K(sinz)=sinxcoshy, S(sinz)= cosxsinhy 
Die hyperbolischen Funktionen werden dabei über die Exponentialfunktion ermittelt 
sinn=$(e*-e*); coshx =4(e*+e*) 


Der Escape-Time-Algorithmus wird für jedes Bildschirm-Pixel gestartet. Die Iteration 
bricht ab, wenn der Betrag des Realteils 20 überschreitet oder Konvergenz eintritt. 
Letzteres wird angenommen, wenn der Abstand eines Punktes von seinem Urbild 
kleiner als 10 ist. Eine Realisierung zeigt das Quick Basic-Programm julsin.bas. 


15.7 Julia-Menge z = sin(z) 


'julsin.bas 
'Julia-Menge der Gleichung z=sin(z) 


CONST PI = 3.141529653#} 
CONST a= .6:b= .6 
CONST xmax = 1.5 * PI: ymax = 3.5 


CONST nl = 320: n2 = INT(nl * ymax / xmax) 

DIM ch, cs, sh, d, ss, v, x, xl, x2, y, yl, y2 AS DOUBLE 
DIM c, i, j, k AS INTEGER 

DIM col (8) 


SCREEN 12: CLS 
FOR i = 0 TO 8: READ col(i): NEXT i 
FOR i=0T0nl 
FOR j = -n2 TO n2 
x=i* xmax /nl:y=j * ymax /n2 
FOR k = 0 TO 50 
IF ABS(y) > 20 THEN c = 1 + k MOD 8: GOTO graphik 
u = EXP(y): v = EXP(-y) 
ch=(u+v) /2:sh=(u-v)/2 


cs = C0S(x): ss = SIN(x) 
xl = ss * ch: yl = cs * sh 
2 =a*rxl-b*ryly2=a*tyl+b*xl 


d=(x2 - x) * (x2 - x) + (y2 - y) * (y2 - y) 
IF d < .000001 THEN c = 1 + k MOD 8: GOTO graphik 
x=x2:y=Y2 
NEXT k 
ce=0 
graphik: 


Bild 15.9 Julia-Menge der 
Funktion z=sin(z) 


PSET (320 + i, 240 - j), collc): PSET (320 - ij, 240 + j), col(c) 


NEXT j 
NEXT i 


2 


1 


9 
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e$ = INPUT$(1): SCREEN O 
END 
DATA 0,1,9,2,10,4,12,14,6 


15.8 Juliamenge z = exp(z)+C 


Bild 15.10 Julia-Menge der 
Funktion z=exp(z) 


Als Beispiel einer komplexen Exponentialfunktion wird die Gleichung 
z=e’+C 

gewählt (vgl. Bild 15.10). Da in der Programmiersprache C++ bereits eine komplexe 
Arithmetik implementiert ist, soll im folgenden ein entsprechendes Programm gege- 
ben werden. Die Konstante C der Gleichung wird mittels Real- und Imaginärteil als 
konstant deklariert. Als Header muß hier zusätzlich die Datei complex.h eingeschlossen 
werden. Die vordefinierte Konstante M_P1 ist in der Header-Datei math.h definiert und 
stellt die Zahl TT in doppelter Genauigkeit dar. 
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Den Escape-Time-Algorithmus - in Form einer separaten Prozedur - zeigt das Turbo 
C++ Programm julexp.cpp. 


// julexp.cpp 
// Julia-Menge der Gleichung z=exp(z)+c 


en en TEE ut . Senne 
rn =* 


#include <graphics.h> 
- #include <stdlib.h> 
#include <stdio.h> 
#include <conio.h> 
#include <math.h> 


15.8 Juliamenge z = exp(z)+C 


As@pıliariehgäzieempgne 7 
{include <complex.h> // Komplexe Arithmetik 


void iteration(void); 

int escape_time(double re,double im); 

const double a=0.,b=0.; // Komplexe Konstante c=a+bi 
const double xmin=-3.5,ymin=-3. ‚xmax=5.5,ymax=3.; 
complex C; 


void main(void) 

( 

int gdriver,gmode; 

gdriver = 0: gmode = VGAHI; // NGA-Modus 640 x 480 
initgraph(&gdriver,&gmode," "); 


c = complex(a,b); // Konstante 
iteration(); 

do {} while (!(kbhit())); 
closegraph(); 

return; 

) 


void iteration(void) 
{ 
int count; 
double dx,dy,re,im; 
dx = (xmax-xmin)/640.; 
dy = (ymax-ymin)/480.; 
re = min; 
for (int i=1; i<=640; i++) 
{ 
im = ymin; 
for (int j=1; j<=240; j++) 
{ 
count = escape_time(re,im); 
if (count<=50) 
{ 
putpixel(i,480-j+1,1+count % 15), 
putpixel(i,j,l+count % 15); 
} 
im += dy; 
} 
re += dx; 
) 
} 


int escape_time(double re,double im) 
{ 
int count=0; 
double x,y; 
complex z; 
z = complex(re,im); 
while (count<=50 && real(z)<=50.) 
( 
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count+t+; 
if ((fabs(imag(z)) > le4) || (fabs(real(z)) > 1e4)) 
x = imag(z); 
while (fabs(x) >= 2*M_PI) x /= (2*M_ Pl); 
y = real(z); 
while (fabs(y) >= 2*M_PI) y /= (2*M_PI); 
z = complex(x,y); 
) 
z = explz) + c; 
] 
return count; 
] 


15.9 Newton-Verfahren 


Das Newton-Verfahren zur Nullstellenbestimmung von reellen Funktionen wurde 
1879 von A.Cayley auf die komplexe Zahlenebene erweitert. Für eine komplexe 
Funktion lautet die Iteration 


_S@) 

f@) 
Für das hier gewählte Beispiel f(z) = 2-1 (Bild 15.11 und Farbtafel 9) ergibt sich die 
Iterationsform 


RZ 


| Sr 27° +1 
377 37? 


Zi 


Die Lösungen der Gleichung f(z) = 2° -1 sind die dritten Einheitswurzeln 
= est. k=0,12 oder „=1; z,= I41,3i 


Jede Einheitswurzel ist ein anziehender Fixpunkt mit einem Anziehungsbereich 
Alz,); k= 0,12. Mit Hilfe eines Computerprogramms läßt sich ein solcher Anzie- 
hungsbereich sichtbar machen, indem man alle Startpunkte der Iteration, die gegen 
denselben Attraktor konvergieren, mit gleicher Farbe einfärbt. Hier zeigt sich überra- 
schenderweise, daß alle drei Attraktionsgebiete gleich sind. Die Juliamenge ist damit 
der Rand aller drei Anziehungsbereiche J, =dAlz,) mit 9A(z,) =dAlz,) =9Alz,). Es 
ergibt sich folgender merkwürdige Sachverhalt: Sind zwei Attraktionsgebiete benach- 
bart, so ist in einer Umgebung auch der dritte Anziehungsbereich zugegen. Peitgen 
und Richter haben diesen Sachverhalt in [22] wie folgt veranschaulicht: 


Drei Mächte wollen einen Planeten unter sich aufteilen. Die Grenzziehung soll so erfolgen, 
daß überall dort, wo zwei Mächte eine gemeinsame Grenze haben, auch die dritte Macht zu- 
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gegen sein soll, um möglicherweise bei einem Konflikt eingreifen zu können. Die mit dem 
Newton-Verfahren gewonnene Einfärbung löst die Aufteilung der Territorien. 


Bild 15.11 Juliamenge der 
Funktion z=z*3-1 


Das Turbo Pascal-Programm newton.pas führt das komplexe Newton-Verfahren für 
die angegebene Funktion durch. 
program newton; 


{ Komplexes Newton-Verfahren für die Gleichung z*3-1=0 |] 
uses crt,graph; 


label 111; 

const ax = 1; ay = 0; ( a,b,c 3.Einheitswurzeln ] 
bx = -0.5; by = 0.8660254; 
cx = -0.5; cy = -0.8660254; 
eps = 0.005; 


xmin = -1.33333; xmax = 1.33333; ( Bildschirmfenster) 
ymin = -1.0; ymax = 1.0; 
var dx,dy,x,y,x1,yl,x2,y2,nenn:real; 
2.D,1,J,.Ksintegenz; 
Graphdriver,,‚Graphmode:integer; 


function abstand(x,y,a,b:real):real; 
begin 

abstand := sqrt(sqr(x-a)+sar(y-b)); 
end; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode,' '); 
SetgraphMode(Graphmode); 
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a := getmaxx; b:= getmaxy; 
dx := (xmax-xmin)/a; 
dy := (ymax-ymin)/b; 
for i := 0 to a-1 do 
for j := 0 to b div 2 do 
begin 
k := 0; 
x := xminti*dx; 
y := ymint+j*dy; 
repeät 
if abstand(x,y,ax,ay)<eps then 
begin 
if odd(k) then { 
begin putpixel(i,j,1); putpixel(i,b-j,1) end 
else k 
begin putpixel(i,j,9); putpixel(i,b-j,9) end; 
goto 111; 
end; 
if abstand(x,y,bx,by)<eps then 
begin 
if not odd(k) then 
begin putpixel(i,j,2); putpixel(i,b-j,2) end 
else 
begin putpixel(i,j,10); putpixel(i,b-j,10)end; 
goto 111; 
end; E 
if abstand(x,y,cx.cy)<eps then 
begin 
if odd(k) then 
begin putpixel(i,j,6); putpixel(i,b-j,6) end 
else 
begin putpixel(i,j,14); putpixel(i,b-j,14) end; 
goto 111; 
end; 
if abs(x-y)<0.0001 then goto 111; 
X2 := x*x; y2 := y*y; nenn := (x2+y2)*(x2+y2); 
x1 := (2.0%x+(x2-y2)/nenn)/3.0; 
yl := 2.0%(y-x*y/nenn)/3.0; 
x:=xl; y :=yl]; 
inc(k) 
until k=25; 
111:end; 
repeat until keypressed; 
closegraph; 
textmode(lastmode); 
end. 
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16 Mandelbrot-Menge 


Die Mandelbrot-Menge M ist die Menge aller komplexen Zahlen ce C, für die der 
Grenzwert der iterierten Gleichungen der quadratischen Funktion 


O.(2)= z +c mit dem Startwert z=0 beschränkt bleibt. 


Bild 16.1 Mandelbrot-Menge, 
meist Apfelmännchen genannt 


0x0)<=| 


M=Ice C; lim 
no 


Die quadratische Funktion Q,(z)= z°+c ist holomorph; d.h. komplex differen- 
zierbar. Dies sieht man am einfachsten an der Gültigkeit der Cauchy-Riemannschen 
Gleichungen. Zerlegt man die Funktion in den Real- und Imaginärteil, so folgt mit 


c=a+bi 


RO.) =u(r,y)= x’ -y° +0 IQ.) = v(x,y)=2xy+b 


.1D ik der Mandelbrot- 
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Die Jacobi-Matrix ist 


au du 
y-\% 9y 2; = 
| | \2y 2x 
ox dy 


Es gilt somit die Gleichheit der partiellen Ableitungen 
du dv du dv 


dx Oy dy dx 
Dies zeigt, daß die Cauchy-Riemannschen Gleichungen erfüllt sind. Die Funktion 
O.(2) = 2” +cstellt somit eine winkeltreue Abbildung (für c#0) dar. Sie bildet ein 


Gitter von parallelen waagrechten und senkrechten Geraden auf eine Schar von 
orthogonalen Parabeln ab. 


16.1 Dynamik der Mandelbrot-Menge 


Die Ableitung Q/(z)=2z verschwindet genau für z=0. Der Ursprung ist somit ein 


superstabiler Fixpunkt der Abbildung. Für einen neutralen Fixpunkt erhält man die 
Gleichung 


o.(Q)=2d=1>]dJ=t 


d.h. ein neutraler Fixpunkt liegt auf dem Kreis um den Ursprung mit Radius +. 


Schreibt man diesen Kreis in komplexer Form z=3e'”, so liefert das Einsetzen in die 
Fixpunkt-Gleichung c=z-2? die Bedingung 
-1,ip _1,29 
c=7e 1° 
Trennung der Real- und Imaginärteile liefert 
RN 25 split abe 
a=7008P 7 cos2p;b= „np -7 sin2p 


An dieser Form erkennt man, daß diese Punktemenge eine Herzkurve oder Kardioide 
darstellt, die den »Bauch« des Apfelmännchens bildet. Sie schneidet die reelle Achse 


3 
in den Punkten c=4+Ac= 77: 


Für die zweite Iterierte der Funktion folgt F,(z)= 0: ()=( +c)?+c. Für Fixpunkte 
der Periode Zwei muß gelten F,(z)=z oder 
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7“ +2cz? -z+c? +c= (z -z+0)(? +z+c+]) 


Der erste Faktor dieser Zerlegung liefert die schon bekannte Fixpunkte der ersten 
Iterierten. Zerlegung des zweiten Faktors ergibt 


1. =16-1+,J-3-4c) 


Bild 16.2 Ausschnitt aus der 
Antenne des Apfelmännchen bei 
z=-2 


Mit der Ableitung F’(z) = 4z°+4cz erhält man F’(z)=F z,) =4(1+c). Für die 
F£(2)) =1 ergibt sich 


Bedingung eines neutralen Fixpunktes 
lau+c)=1=|1+d=} 


Diese Punktmenge stellt einen Kreis mit dem Mittelpunkt -1 und dem Radius 4idar, 
der auch in der Form c= er —1 geschrieben werden kann. Dieser Kreis stellt den 
»Kopf« des Apfelmännchens dar. 


Das Verfahren läßt sich in der angegebenen Weise fortsetzen. Für die dritte Iterierten 
erhält man Kreise, die die »Arme« und die » Antenne« des Apfelmänchens darstellen. 


Es läßt sich zeigen, daß jede natürliche Zahl als Zyklus der Mandelbrot-Menge 
auftritt. Die Zyklen des Apfelmännchen lassen sich auch am Feigenbaum-Diagramm 


der reellen Funktion Q,(x) = x-+c ablesen (Bild 16.3). 


16.2 Eigenschaften der Mandelbrot-Menge 


Bild 16.3 Periodizität des 
Apfelmännchens und 
Bifurkationen von x*2+c 


16.2 Eigenschaften der Mandelbrot-Menge 


» Die Mandelbrot-Menge ist symmetrisch bezüglich der reellen Achse. Ist nämlich 
die Bahn eines komplexen Punktes beschränkt, so gilt dies auch für die Bahn der 
konjugiert-komplexen Zahl. 

® Die Schnittmenge mit der reellen Achse ist das Intervall -34]. Ein Beweis dazu 
findet sich bei Zeitler[40]. 

» Die Mandelbrot-Menge ist beschränkt, sie liegt im Inneren des Kreises lJl=2. 

Die Mandelbrot-Menge ist selbstähnlich; jedoch ist diese Ähnlichkeit nicht exakt. 
Die Mandelbrot-Menge ist zusammenhängend. Dieses Ergebnis, daß scheinbar 


allen Apfelmännchen-Graphiken widerspricht, konnte erst 1982 von Douady/ 
Hubbard bewiesen werden. 


>» Der Rand der Mandelbrot-Menge ist fraktal. Die Bestimmung der fraktalen 
Dimension ist noch Gegenstand mathematischer Forschung. Für die Hausdorff- 
Dimension D von J, konnte D. Ruelle zeigen, daß für kleine c gilt: 


ker 
D=1+75+0(c) 


16.3 Escape-Time Algorithmus 


x x 2 2 R 
Für jeden Punkt des Bildschirms wird die Iteration Q,(2)=2° +c gestartet, wobei aber 
im Gegensatz zur Julia-Iteration die Konstante der letzte Iterationswert ıst. Das 
Verfahren kann dem Turbo C-Programm apfel .c entnommen werden. 
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/* apfel.c */ 
/* Apfelmännchen bzw. Ausschnitt */ 


/* Falls Symmetrie ymax == -ymin vorhanden, kann das Programm beschleunigt werden durch 
Wegnahme des untenstehenden Kommentars */ 


#include <stdio.h> 

#include <graphics.h> 

#include <conio.h> 

#include <stdlib.h> 

const int kmax = 100,grenze = 10; 

const double xmin=-1.943, xmax=-1.940, ymin=-0.0011, ymax =0.0011; 
static int col[9]J = {0,1,9,2,10,4,12,6,14); 


void main(void) 

l 

register int i,j.k; 

int a,b; 

double h1,h2,x,y.x0,y0,dx,dy,p.,q; 

int gdriver,gmode; 

gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 

a = getmaxx(); b= getmaxy():; 


dx = (xmax-xmin)/a; 
dy = (ymax-ymin)/b; 
for (i=1; i<=a; i+) 
for (j=1; j<=b; j+) 
/* Falls symmetrisch: for (j=1; j<=b/2; j++) */ 
| 
p = xminti*dx; q = ymin+j*dy; 
k=-0;x=-y=0; 
do { 
Ile Xax;  h2=,y®y; 
x0=hl-h2+p; 
yD = Z*x*y +q; 
x = x0; y = y0; kit; 
} 
while(k<kmax && hl+h2<grenze); 
if (k<kmax) 
{ 
putpixel(i,j,col[l+k % 8]); 
/* Falls symmetrisch ergänzen: putpixel(i,b-j,col[1+k%8]); */ 
} 
] 
do {} while(!(kbhit())); 
closegraph(); 
return; 
) 


Soll ein zur Realteil-Achse symmetrischer Ausschnitt des Apfelmännchens geplottet 
werden, so kann die Symmetriebeziehung zur Beschleunigung des Programmlaufs 
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verwendet werden (vgl. auch Kommentar am Kopf des vorherstehenden Programms 
r 

apfel.c). Das folgende Turbo Pascal-Programm mand.pas zeichnet das vollständige Apfel 

männchen, wobei die Punkte des »Kopfes« und die Kardiode des »Bauchs« ausgespart 


werden. 


program mand; 
{ Vollständiges Apfelmännchen } 


uses crt,graph; 

label naechst; 

const xmax = 1.5; ymax = 1.125; 

const nl = 320; 

const col:array[L0..8J of integer =(0,1,9,2,10,4,12,6,14); 

var i,j,k,1,n2 :integer; 
a,b,s,u,v,x,x1,x2,y,y2 : real; 
Graphdriver,Graphmode: integer; 

begin 

GraphDriver := Detect; 

Initgraph(GraphDriver,GraphMode,' '); 

SetgraphMode(Graphmode) ; 

n2 := round(nl*ymax/xmax); 

for i := -nl to nl do 


begin 
a := -0.65 + i*xmax/nl; 
for j := 0 to n2 do 
begin 


b:=j * ymax / n2; 
u :=4*%a *a+b*b); v := u-2%*%a+0.25; 
if (u+8*a+3.75 < 0) or (v-sqrt(v)+2*a-0.5 < 0) then goto naechst; 
x%..:=95 Yu 35h 
repeat 
xl se xskögmuktl; 


KörmiXZueny24tras 
yız= 2*# xl Sy b; 
Ss:ı=x2 +y2; 
until (s>4) or (k=40); 
if k<40 then 
begin 
1 := 1+k mod 8; 
putpixe] (320+1,240-j,col[1]); 
putpixe] (320+1,240+j,col[1]); 
end; 
naechst: 
end 
end; 
repeat until keypressed; 
closegraph; 
textmode(]lastmode) 
end. 


TE 
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16.4 Distanz-Methode 


Bild 16.4 
Ausschnittsvergrößerung des 
Apfelmännchens bei z=- 
0.16+1.03i 


Das im Abschnitt 15.5 vorgestellte Distanzverfahren läßt sich analog auf die 
Mandelbrot-Menge anwenden. Dies zeigt das folgende Quick Basic-Programm 


mandist.bas. 


"mandist.bas 
"Mandelbrot-Menge mittels Distanzmethode 


CONST ax = -.16: ay = 1.03: "Mittelpunkt des Ausschnitts 

CONST dx = .025: dy = .75 * dx: ' Ausschnittbreite 

CONST nl = 320: n2 = INT(.75 * nl) 

CONST kmax = 200 

DIM a, b, eps, sl, s2, s3, u, ul, v, vl, x, xl, y, yl AS DOUBLE 
DIM i, j, k AS INTEGER 


SCREEN 12: CLS 


eps = .4* dx /nl 
FOR i = -nl TO nl 
FOR j = -n2 TO .n2 
a=x+i*d/nl:b=ay+j*dy/n2 
x=a: y=-b: u=1:v=0 
FOR k = 0 TO kmax 
ılex*tx-y*y+a:ryl=2*x*y+b 
ul=2*(u*x-v*y)+l:vl=2*(u*y+v*x) 
sı=xı*x1+yl* yl + 1E-08 
IF sl > 128 THEN 
s2 = LOG(s1): s3 = SOR(ul * ul + vl * vl) 
dist = SOR(s1) * s2 / s3 
IF dist < eps THEN PSET (320 + i, 240 - 5), 1 + INT(100000! * dist) 


16.5 Mandelbrot-Menge einer Sinusfunktion 


GOTO naechst 
END IF 
x=-xıl: y=yl: u=ul: v=vl 
NEXT k 

naechst: 
NEXT j 
NEXT i 
e$ = INPUT$(1): SCREEN 0 
END 


16.5 Mandelbrot-Menge einer Sinusfunktion 
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Bild 16.5 Mandelbrot-Menge 
von Z>c+rsinz 


Die bei der Mandelbrot-Menge verwendete Iteration kann auf einfache Weise auf 
andere Funktionen übertragen werden. Als Beispiel sei hier die komplexe Funktion 


z>cH+trsinz 


gewählt (vgl. Bild 16.5 und Farbtafel 12). Um komplexes Rechnen zu vermeiden, 
wird die Sinus-Funktion in Real- und Imaginärteil zerlegt. Es gilt mit z=x+yi 

R(sin z) = sin x cosh y, I(sinz) = cosxsinhy 
Die benötigten hyperbolischen Funktionen werden hier über die Exponentialfunktion 


berechnet. Die Symmetrien zur Real- und Imaginärteil-Achse werden im Programm 
benützt. 


/* mandsin.c */ 
/* Mandelbrot-Menge der Funktion c+pi*sin(z) */ 
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#include <stdio.h> 
#include <graphics.h> 
#include <math.h> 
#include <conio.h> 


const double PI=3.141592653; 
const int n1=320; 
int col[9] = (0,1,9,2,10,4,12,14,6); 


void main(void) 

{ 

double a,b,u,v,x,y,dist,ch,cs,sh,ss,x1,yl; 
double xmax=PI,ymax=0.75*PI; 

NER I2EILIL.IZ.K 15 

int n2,gdriver,gmode; 


n2 = (int)floor(n1*ymax/xmax+0.5); 
gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 


for (i=0; i<enl; i++) 
{ 
il = 320+i; i2 = 320-i; 
for (j=0; j<=n2; j+) 
{ 
jl = 240+j; j2 = 240-j; 
a= xmax*i/nl; b = ymax*j/n2; 
x=PI/2.; y=0; 
for (k=1; k<=64; k++) 
{ 
if (fabs(y)>15.) { 1 = 1+k % 8; break; ) 
u=exp(y); v=1./u 
ch = (utv)/2.; sh = (u-v)/2.; 
ss = sin(x); cs = cos(x); 
xl = a+tPI*ss*ch; yl = b+Pl*cs*sh; 
dist = fabs(x-x1)+fabs(y-yl); 
if (dist<.0005) (1=0; break; } 
x=x1; y = yl; 1=0; 
) 
putpixel(i1,j1,col[]]); putpixel(il,j2,col[1]); 
putpixel(i2,j1.col[]]); putpixel(i2,j2,col[]]); 
} 
} 
do {} while(!(kbhit())); 


closegraph(); 
return; 
} 


16.6 Mandelbrot-Menge einer Exponentialfunktion 


16.6 Mandelbrot-Menge einer Exponentialfunktion 
Als Beispiel einer Exponentialfunktion soll hier die Funktion 


f)=c+z-e? 


behandelt werden (Siehe Bild 16.6 und Farbtafel 13 -D L RE 
Funktion ist ). Der Real- und Imaginärteil der 


Rfe)=c, +x-e* cosy,I(f(z)) = c, +y-e”siny 


Zu beachten ist hier, daß es nicht zum Überlauf bei der Berechnung der 
Exponentialfunktion kommen darf. Der Escape-Time-Algorithmus wird durch das 
Quick Basic-Programm mandexp.bas dargestellt. 


'manexp.bas 
'Mandelbrot-Menge der Gleichung c+z-exp(z) 


CONST ax = 3.8: ay = 0 

CONST xmax = 3.8: ymax = 2.7 

CONST nl = 320: n2 = INT(n1 * ymax / xmax) 
DIM a, b, d, u, x, x1, y, yl AS DOUBLE 
DIM i, j,. k, 1 AS INTEGER 

DIM col(8) 


SCREEN 12: CLS 


FOR i = 0 TO 8: READ col(i): NEXT i 
FOR i -nl TO nl 
a=ax+i * xmax / nl 
FOR j=0T0n2 
b=ay+ j * ymax /n2 
IF (a-1) * 2+b * 2< 1 THEN GOTO naechst 


x=0:y=0 

FOR k = 1 TO 30 
IF x > 10 THEN 1 = 1 + k MOD 8: GOTO graphik 
IF x < -10 THEN u = 0 ELSE u = EXP(x) 
xl=a+x- u* COoS(y): yl=b+y - u* SIN(y) 


d- =. (KU-HXKT) ST 2 lyl = IyD)ESTZ 
IF d< .0001 THEN GOTO naechst 


x=xl: y=yl 
NEXT k: 1=0 
graphik: 
PSET (320 + i, 240 - j). col(1): PSET (320 + i, 240 + j), coll) 
naechst: 
NEXT j 
NEXT i 


e$ = INPUT$(1): SCREEN 0 
DATA 0, 1, 9, 2, 10, 6, 14, 4, 12 
END 


16 Mandelbrot-Menge 


Bild 16.6 Mandelbrot-Menge 
der Funktion f(z)=c+z-e® 


17 Anwendungen I 


In diesem Kapitel sollen einige Anwendungen der Chaostheorie in den verschiedenen 
Wissenschaften aufgezeigt werden. Hier kann natürlich keine Vollständigkeit ange- 
strebt werden, allein die Aufzählung der bekannten physikalischen Anwendungen ist 


kaum möglich. Man vergleiche nur die Themenvielfalt in dem Sammelband Fractals 
in Physics [24]! 


17.1 Chemie: Brüsselator 


Eine der überraschendsten Entdeckungen in der Chemie der letzten Jahre war die 
Entdeckung der oszillierenden chemischen Reaktionen, bei denen eine Reaktion — 
fern vom Gleichgewichtspunkt - zwischen zwei Zuständen oszilliert. 


Der Russe B. P. Belusow hatte 1958 bei einer Mischung von Malon-, Schwefelsäure, 
Kaliumbromat und Ceriumsulfat eine oszillierende Reaktion entdeckt. 1963 verbes- 
serte sein Landsmann A. M. Zhabotinski die Reaktion durch Verwendung von Eisen- 
sulfat (statt des Ceriumsulfats) und erhielt spektakuläre Farbumschläge zwischen 
Blau und Rot, die man ca. 10 Minuten lang mit bloßem Auge beobachten konnte. 


Die Belusow-Zhabotinski-(BZ)-Reaktion wird beschrieben durch die Bruttoformel 
2BrO; + 3CH,(COOH), +3NE 3 2BrCH(COOH), +3C0, T+4H,0 

Der genaue Reaktionsablauf ist sehr kompliziert und erfolgt in über 20 Stufen. Die 
BZ-Reaktion konnte erst 1972 vollständig geklärt werden. 

Für Reaktionen der Art, wie sie bei der BZ-Reaktion vorliegen 


A>X 
B+X—>D+Y 
2X+Y—3X 
X>E 
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lieferte Prigogine auch ein mathematisches Modell in Form eines nichtlinearen Diffe- 
rentialgleichungs-Systems.. Für jede der beteiligten sechs Reagenzien 
A,B,D,E,X,Y ergibt sich eine Differentialgleichung. 


A=-kA 
B=-k,BX 
D=k,BX 
E=k;X 


X=kA-k,B-k,X+k,X°Y 
Y=k,BX-k,X’Y 
Dabei sind k; (i=1,2,3,4) chemische Reaktionskonstanten. Dieses System wird nach 


der Stadt, in der sich das Universitätsinstitut von Prigogine befindet, Brüsselator ge- 
nannt. 


Das Turbo Pascal-Programm brussel.pas integriert numerisch den Brüsselator. Die 
verwendeten Reaktionskonstanten und Anfangskonzentrationen sind dem Aufsatz 
Oscillating Systems of Chemical Reactions von H. Hoekstra und C. Kok in Junge 
Wissenschaft 30, 8 entnommen. 


Bild 17.1 Oszillationen des 
Brüsselators 


program brusse]; 
{$N+) 
uses crt,graph; 


const kl = 0.0015; k2 = 0.00049; k3 = 0.877;k4 = 10; 


17.1 Chemie: Brüsselator 239 
dt = 0.001; 
var a,b,d,e,x,y,da,db,dd,de,dx,dy,t : double: 
i : longint; 
Graphdriver ‚Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode, ' '); 
SetgraphMode(Graphmode) ; 
cleardevice; 

rectangle(0,0,639,479); 
moveto(10,10);outtext( 'Brüsselator'); 


— 


Be b:= 5000; d := 0; e:=0; x:=0; y:=0; { Anfangskonzentrationen 
t.:=0; 
while t<= 640 do 

begin 

da := -kl*a*dt; 

db := -k2*b*x*dt; 

dd := k2*b*x*dt; 

de := k3*x*dt; 

dx := (kl*a-k2*b*x-k3*x+k4txtxty)*dt: 

dy := (k2*b*x - kArx*x*y)*dt; 


‘a := atda; 
b := b+db; 
d := d+dd; 
e := e+tde; 
x := xXt+tdx; 
y2:2=y4d4y) 


putpixel (round(t) ,477-round(22*x) ,14); 
putpixel(round(t) ,477-round(45*y),12); 
putpixel(round(t),477-round(13*e),13); 
De=26tdt> 
end; 

repeat until keypressed; 

closegraph; 

TextMode(lastmode) 

end. 


Die Oszillationen des Brüsselators kann man dem Bild 17.1 entnehmen. Die Säge- 
zahnkurve stellt die Konzentration von Reagenz Y, die Stufenfunktion die Konzen- 
tration von Reagenz E dar. Die »Nadelspitzen«-Kurve zeigt die Konzentrations- 
änderung der Reagenz X, die für den Farbumschlag verantwortlich ist. 


Vernachlässigt man den Einfluß der Reagenzien A, B; C; und E, so entsteht das ver- 
einfachte System des Brüsselators 


x=a-(b+l)x+x’y 


y=bx-x?y 
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wobei die Konstante k, auf Eins normiert wurde. Der vereinfachte Brüsselator ist ein 


bekanntes System mit einem Grenzzyklus, den man z.B. für die Parameterwerte 
a=0.4,b=1.7 erhält. 


Grenzzuk lus des Brüusselators 


Bild 17.2 Grenzzyklus des ver- 
einfachten Brüsselators 


Der sinusförmig erregte Brüsselator wurde von K. Tomita und T. Kai untersucht. 
Dieses System ist im Abschnitt 7.8 behandelt worden. 


17.2 Astronomie: Saturnringe 


Die KAM-Theorie von Kap. 8 findet zahlreiche Anwendungen in der Astronomie. 
Insbesondere nimmt man an, daß die Materieverteilung des Saturnrings den 
»invarianten Tori« entspricht. Auch die Lücken im Asteriodengürtel werden durch 
die KAM-Theorie erklärt. Von J. Fröland stammt folgendes Modell zur Simulation 
der Materieverteilung in den Saturnringen. Der Radiusvektor und der Polarwinkel 
der Ringmaterie erfüllt die Rekursions-Gleichungen: 


Acos($,) 
1412 Pr = 
(n-7,) 
bn+1 zit, 
In? 
1) =9_ + o 


17.2 Astronomie: Saturnri 


Dabei ist A eine Konstante, die proportional zur Masse des innersten Saturn-Monds 


Mimas ist. Die Hilfsvariable h,,, dient als Ersatz für den Abstand r„, da das Rekursi- 


onsschema zweifach zurückgreifend ist. Der Anfangsabstand wird auf den Wert 


79 = 1.857:10°km gesetzt; dies entspricht genau dem mittleren Abstand von Mimas, 
dem innersten Mond des Saturn. 


Bild 17.3 Saturnringe nach dem 
Modell von Fröland 


Eine Realisierung des Modells von Froland bietet das Turbo Pascal-Programm sa- 
turn.pas. Bild 17.3 zeigt den Graphik-Ausdruck des Programms. Es werden Anfangs- 
werte für vier Ringe gegeben. Die Lücken zwischen den Ringen sind (von außen nach 
innen) die 1:4, 1:3 und 1:2 Lücke. 


program saturn; 

{ Model] für die Entstehung der Saturnringe 
nach J.Fr$land, Introduction to Chaos and Coherence 
Institute of Physics, Bristol 1992 } 

[$N+) 

uses crt,graph; 


const r0 = 1.857e5; ( Radius der Mimas-Bahn) 
A = 2.0el2; 
d : array[1..4] of real= (7.064 ,8.44e4 ,10.0e4,13.0e4); 
var r,rl,theta,thetal,h,x,y:double; 
i,J : integer; 
Graphdriver,Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 
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circle(320,240,73); { Saturn ] 
circle(320,240,230); | Mimasbahn |} 


for j:=1 to 4 do { Anzahl der Ringe } 
begin 
r := dlj); 
h := r; theta := 0; 
for i:=1 to 3000 do I{ Verteilung der Ringmaterie } 
if r>0 then 
begin 
thetal := theta+2*pi*exp(1.5*1n(r0/r)); 
rl := 2*r-h+A*cos(theta)/sqr(r0-r); 
theta := thetal-2*pi*trunc(thetal/(2*pi)); 
heeirzini:erl; 
x := r/r0*cos(theta); y := r/rO*sin(theta); 
if i>200 then putpixel (trunc(230*x)+320, trunc(230*y) +240 ‚j); 
end 
end; 
floodfi11(320,240,15); 
moveto(300,320) ;outtext( 'Saturn'); 
moveto(555 ,240) ;outtext( 'Mimas'); 
repeat until keypressed; 
closegraph; 
textmode(1lastmode) 
end. 


17.3 Elektronik: Dioden-Schwingkreis 
Betrachtet werde ein Schwingkreis mit Diode nach Bild 17.4. 


R Ve cos(wt) 


Bild 17.4 Elektromagnetischer 
Schwingkreis mit Diode 


Approximiert man die Kennlinie der Diode durch eine Exponentialfunktion, so läßt 
sich die anliegende Spannung beschreiben durch 


17.3 Elektronik: Dioden-Schwingkreis 


ra 
U,= 2 - 


Dabei kennzeichnen die Materialkonstanten C,,U, den Typ der Diode. Für die durch 


den Stromkreis fließende Ladung O ergibt sich die Differentialgleichung zweiter 
Ordnung 


OR. U U 
+ 70+7*= 2. coslan) 


Dabei ist R der Ohmsche Widerstand, Z die Induktivität der Spule und U, die Schei- 


telspannung der angelegten Spannung. Die Differentialgleichung kann mit dem Quick 
Basic-Programm schwing.bas integriert werden. 


Elektr .Schwingkreis nit Diode 


Bild 17.5 (L,U)-Phasenplot bei 
U,=11V 


Im Programm wurden folgende Werte gewählt: 

U, =12V;C, =0.025F,R= 1; L=1H;0=2r4 
Es zeigt sich bei diesen Werten, daß mit wachsender äußerer Spannung U, Perioden- 
verdoppelungen auftreten (ab 1.6V), die schließlich bei 2.07V zum Chaos führen. 


'schwing.bas 

"Elektrischer Schwingkreis mit Diode 
CONSTL=1!: "Induktivität in Henry 
CONSTR = 1: 'Ohmscher Widerstand 


CONST U0 = 1.2: "charakt.Diodenspannung 
CONST CO = .025: "Kapazität der Diode bei U=0 
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CONST Ve = 2.2: "externe Scheitelspannung 
CONST dt = .0001: 'Zeitschritt in Sekunden 
CONST PI = 3.141592653# 


DIM Q, Qp, Qpp, U AS DOUBLE 

SCREEN 12: CLS 

WINDOW (-2, -1)-(9, 1) 

BINERT 21) -19, 71). 19,8 

LINE (-2, 0)-(9, 0), 15 

LOCATE 2, 2: PRINT "Elektr.Schwingkreis mit Diode" 


t = 0: Q = 0: Qp = 0: "Anfangswerte 

DO 
U = U0 * (EXP(Q / (UO * CO)) - 1): "Diodenspannung 
Opp = -Qp*R/L-U/L+Ve/L* Ccost2 * Pl *t) 
Qp = Qp + Qpp * dt 
Q=0+ Op * dt 
IF t > 3 THEN PSET (U, Qp), 14 
t=t + dt 

LOOP UNTIL t > 20 

e$ = INPUT$(1): SCREEN 0 

END 


17.4 Elektronik: Van-der-Pol-Oszillator 


Bild 17.6 Schaltplan des van- 
der-Pol-Oszillators 


Der Oszillator wurde 1926 von dem Holländer Balthasar van der Pol entdeckt und 
eingehend untersucht. Der Schaltkreis wird beschrieben durch die Gleichungen 


Phasenplot des Van-der-Pol-Oszillators 


Diese Gleichungen können ohne Beschränkung der Al 
werden zu der Van-der-Pol-Gleichung 2. Ordnung 


u u 


ü+a(u? - Dütu= kcoslor) 2 
Diese Gleichung kann zerlegt werden in das System 2 Richt 


\ Ber 6 Ze. 
ae De 
x=-a(y2 -Dx-y+kcoslot) ar 


Das System wird integriert durch das Turbo Pa: ıl-P 


* 


program vandpo]; 
($N+) 
uses crt,graph; 


const omega = 2.4667; a=5.0; k = 5.0; 
h = 0.001; 
var yl,y2,t : double; F 


Graphdriver ‚Graphmode: integer; 


function fl(yl,y2:double):double; 
begin $ 
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fl := y2 
end; 
function f2(yl1,y2:double):double; 
begin 
f2 := a*(1-yl*yl)*y2-yl+k*cos(omega*t) 
end; 


procedure rk(var yl,y2:double); 

const al=3/32; a2=9/32; 
b1=1932/2197; b2=-7200/2197; b3=7296/2197; 
c1=439/216; c2=-8.0; c3=3680/513; c4=-845/4104; 
d1=25/216; d2=1408/2565; d3=2197/4104; d4=-0.2; 

var k01,k02,k11,k12,k21,k22,k31,k32,k41,k42, 

ull,ul2,u21,u22,u31,u32,u41,u42 : double; 

begin 

k01 := fl(yl,y2); 

k02 := f2(yl,y2); 

ull := yl+h*k01/4; 

ul2 := y2+h*k02/4; 

k11 := fl(ull,ul2); 

k12 := f2(ull,ul2); 

u21 := yl+h*(al*k0l+a2*kl1); 

u22 := y2+h*(al*k02+a2*k12); 

k21 := fl(u2l,u22); 

k22 := f2(u2l,u22); 

u3l := yl+h*(b1*k01+b2*k11+b3*k21); 

u32 := y2+h*(b1*k02+b2*k12+b3*k22); 

k31 := fl(u31,u32); 

k32 := f2(u3l1,u32); 

u4l := y1+h*(c1*k01+c2*k11+c3*k21+c4*k31); 

u42 := y2+h*(c1*k02+c2*k12+c3*k22+c4*k32); 

k41 := fl(u41,u42); 

k42 := f2(u41,u42); 

yl := yl+h*(d1*k01+d2*k21+d3*k31+d4*k41); 

y2 := y2+h*(d1*k02+d2*k22+d3*k32+d4*k42); 

end; 


begin 

GraphDriver := Detect; 

Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 

rectangle(0,0,639,479); 

moveto(10,10); 

outtext('Phasenplot des Van-der-Pol-Oszillators'); 


yl := 0.8; y2 := 0.6; t := 0; 
while t<= 300 do 
begin 
rk(yl,y2); 
t ;= t+rh; 
if t>10 then putpixe1(320+round(100*y1) ‚240+round(15*y2), l+trunc(t/23)); 
end; 


17.5 Physik: Nichtlineares Pendel 


repeat until keypressed; 
closegraph; 
textmode(1astmode) 

end. 


Der Van-der-Pol-Oszillator ist ein bekanntes S it ei i 

| ystem mit einem Grenzzyklus. Eine 
graphische Darstellung des Grenzzyklus erhält man mit dem gegebenen a 
bei geeigneter Parameterwahl. Mögliche Parameter sind z. B. 


a=-l; k=055 


Grenzzuk lus des Van-der-Pol-Oszillators 


Bild 17.8 Grenzzyklus des Van- 
der-Pol-Oszillators 


17.5 Physik: Nichtlineares Pendel 


Für das sinusförmig erregte Fadenpendel läßt sich folgende (nichtlineare) Gleichung 
aufstellen 


mio +YyQ +sinQ@ = Acos(@?) 

Diese Gleichung kann ohne Beschränkung der Allgemeinheit vereinfacht werden zu 
Ö+79$ +sinp = gcos(@r) 

Letztere Gleichung ist äquivalent zum System der Differentialgleichungen 
3=-7y-sinx+gcos(@i) 


x=y 
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Bild 17.9 Phasen-Plot des nicht- 
linearen Pendels 


Das Programm pendel2.pas berechnet die Windungszahlen für alle Parameterwerte 
ae [1;155] und stellt sie graphisch dar. 


program pendel2; { Windungszahlen des nichtlinearen Pendels } 
{$N+) 
uses crt,graph; 


const omega = 0.6667; q = 2.0; 
h = 0.05; 
var yOl,yl,y2,t,9,w : double; 
Graphdriver ‚Graphmode: integer; 


function fl(yl1,y2:double):double; 
begin 

fl := y2 
end; 
function f2(y1,y2:double):double; 
begin 

f2 := -y2/q-sin(yl)+g*cos(omega*t) 
end; 


procedure rk(var yl1,y2:double); 
const al=3/32; a2=9/32; 
b1=1932/2197; b2=-7200/2197; b3=7296/2197; 
c1=439/216; c2=-8.0; c3=3680/513; c4=-845/4104; 
di1=25/216; d2=1408/2565; d3=2197/4104; d4=-0.2; 
var k01,k02,k11,k12,k21,k22,k31,k32,k41,k42, 
ull ,ul2,u21,u22,u31,u32,u41,u42 : double; 
begin 
k01 := fl(yl,y2); 
k02 := f2(yl,y2); 
ull := yl+h*k01/4; 


17.5 Physik: Nichtlineares Pend 


ul2 := y2+h*k02/4; 

kl1 := fl(ull,ul2); 

k12 := f2(ull,ul2); 

u21 := yl+h*(al*k0l+a2*kl1); 
u22 := y2+h*(al*k02+a2*k12); 
k21 := fl(u21,u22); 

k22 := f2(u21,u22); 

u3l := yl+h*(b1*k01+b2*k11+b3*k21): > EP 
y2+h*(b1*k02+b2*k12+b3*k22) : STE x 


u32 ;= 

k31 := fl(u31,u32); ar ER 
k32 := f2(u31,u32); N e 
u41 := yl+h*(c1*k01+c2*k11+c3*k21+c4*k31); RER N), 
u42 := y2+h*(c1*k02+c2*kK12+c3*K22+c4*k32); Be many, yarımın ı 


k4l := fl(u4l,u42); 

k42 := f2(u4l,u42); 

yl := yl+h*(d1*k0l+d2*k21+d3*k31+d4*k41); BA? 
y2 := y2+h*(d1*k02+d2*k22+d3*k32+d4*k42); er 
end; a Be 


procedure rahmen; 

var i:integer; 

begin 

rectangle(0,0,639,479); 

i:= 47; 

while i<=431 do 
begin 
line(0,i,10,i); line(629,1,639,i); 
ji := i+48; 
end; 

i:= 63; 

while i<=575 do 
begin 
line(i,0,1,10); Tine(i ,469,1,479); nun 
i := i+64; 
end; 

end; a 


eV inc 


begin a 
GraphDriver := Detect; REOr er (gi 
Initgraph(GraphDriver, Gr ee % 1 or AEeR ICE A 
SetgraphMode(Graphmode) ; " ehe BEE 
rahmen; sehn '- 
moveto(10,10);outtext('Windungsdiagramm des Pendels'); 


:= 1.0; y0l := 0.1; Amar... ©. 
uhite g<= 1.55 do $ Eu 


begin 
yl := yOls y2= 0.15 tom 0; 
 while-t<= 250 do . ne, 
"begin ‘ 
rk(yl,y2); ei 


t := t+h; } a © © ae zer ‚ A 
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end; 

w .:= (yl-y01)/(250/h); 

putpixel (round( (g-1)*1163) ,240+round(2000*w) ,14); 

putpixel(round((g-1)*1163) ,240-round(2000*w) ‚14); 

g := 9+0.0008594; 

end; 

repeat until keypressed; 

closegraph; 

textmode(1astmode) 

end. 


Bild 17.10 Windungs-Diagramm 
des nicht-linearen Pendels 


Die genaue Analyse der Graphik zeigt folgendes Verhalten in Abhängigkeit vom Pa- 
rameter ge [1155]. 


ee EEE 


Intervall Verhalten Windungszahl 
g<114 periodisch 0 

114 <g<128 chaotisch mit 1 period.Fenster unbestimmt 
128<g<L1475 periodisch +1 

1475 <g<1493 periodisch mit 2 chaot.Fenstern +1 

1493 < g< 1495 chaotisch unbestimmt 
1495 < g< 1497 periodisch +4 

g> 1497 chaotisch unbestimmt 


2 ah 3 BESERRSIR I BE era ana 


Sehr viel aufwendiger ist die Bestimmung eines Poincare-Schnitts. Da die Pendelglei- 
chung unter der folgenden Transformation invariant ist, wird hier gewählt 


2rın 
Eat 
N) 


Das Poincare-Diagramm kann mit Hilfe des Turbo Pascal-Programm pendel3.pas er- 
stellt werden. 


program pendel3; { Poincar&-Diagramm des nichtlinearen Pendels ] 
($N+) 
uses crt,graph; 


const omega = 0.6666/; q= 4.0; g= 1.5; 
h = 0.01; 
var yl,y2,t : double; 
Graphdriver,Graphmode: integer; 
n:longint; 


function fl(yl1,y2:double):double; 


begin 
fl := y2 
end; 
function f2(yl,y2:double):double; 
begin 


f2 := -y2/q-sin(yl)+g*cos(omega*t) 
end; 


procedure rk(var yl,y2:double); 
const al=3/32; a2=9/32; 
b1=1932/2197; b2=-7200/2197; b3=7296/2197; 
c1=439/216; c2=-8.0; c3=3680/513; c4=-845/4104; 
d1=25/216; d2=1408/2565; d3=2197/4104; d4=-0.2; 
var k01,k02,k11,k12,k21,k22,k31,k32,k41,k42, 
ull,ul2,u21,u22,u31,u32,u41,u42 : double; 


begin 

k01 := fl(yl,y2); 

k02 := f2(yl,y2); 

ull := yl+h*k01/4; 

ul2 := y2+h*k02/4; 

kl1 := fl(ull,ul2); 

kl2 := f2(ull,ul2); 

u2] := yl+h*(al*kO1+a2*kl1); 


u22 := y2+h*(al*k02+a2*k12); 
k2l := fl(u21,u22); 


I 


k22 := f2(u2l,u22); 
u3l := yl+h*(b1*k01+b2*k11+b3*k21); 
u32 := y2+h*(b1*k02+b2*k12+b3*k22); 
k31 := fl(u31,u32); 
k32 := f2(u31,u32); 


u4] := yl+h*(c1*k01+c2*k11+c3*k21+c4*k31); 
u42 := y2+h*(c1*k02+c2*k12+c3*k22+c4*k32); 
k4] ;= fl(u4l1,u42); 
k42 ;= f2(u41,u42); 
yl := yl+h*(d1*k01+d2*k21+d3*k31+d4*k41); 
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y2 := y2+h*(d1*k02+d2*k22+d3*k32+d4*k42) ; 
end; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode, '\tp\bgi "); 
SetgraphMode(Graphmode); 

rectangle(0,0,639,479); 

moveto(10,10);outtext( "Poincare-Schnitt;q=4;g=1.5 "); 


yl := 0.8; y2 := 0.6; t :=0;n :=0; 
while t<= 100000 do 
begin 
rk(yl,y2); 
t := t+h; 
yl := yl-2*pi*abs(yl)/yl; 
if (n>10) and (abs(t-2*pi*n/omega)<0.01) then 
putpixel (320+round(100*y1) ‚340-round(100*y2),14); 
if (t>2*pi*n/omega) then n := ntl; 
end; 
repeat until keypressed; 
closegraph; 
textmode(lastmode) 
end. 


Einen einfacheren Zugang zur Pendel-Gleichung bietet das diskretisierte Newton- 
Verfahren des nächsten Abschnitts. 


Poincars -Schnitt;a=m4;0=1.5 


Bild 17.11 Poincare-Schnitt des 
nichtlinearen Pendels 


17.6 Physik: Diskretes Newton-Verfahren 


17.6 Physik: Diskretes Newton-Verfahren 


Setzt man beim Zeitschritt h die Bewegungsgleichungen 


Kan xX.—XxX 
en a 
Yn+ => h 9 Paz h ’ V+ = V„ +ah 


zusammen, so erhält man die zweifach zurückgreifende Beziehung 
Kr X = X %n +ah? 
Dies läßt sich als rekursives Schema schreiben 


er 2, DEN 
An+ı ” 2X, In -ahx,; Int ”Kn 


Für das Fadenpendel ergibt sich schließlich das diskretisierte Newton-Verfahren 
Ant = 2x, —Yn -7h? sinx,; In+ı = An 


Bild 17.12 Phasenplot bei ver- 
schiedenen Anfangswerten 


Das Verfahren ist im Quick Basic-Programm disnewt.bas implementiert. Das Produkt 


der Konstanten ER ist im Programm als Parameter a einzugeben. 


"disnewt.pas 

"Diskretisierung des Newton-Kraftgesetzes 
CONST a = 1.71 

DIM x, xl, y AS DOUBLE 

DIM i, j AS INTEGER 


SCREEN 12: CLS 
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WINDOW (-3.2, -3.2)-(3.2, 3.2) 
INNENSSTZ,EI-ZILIL2, 3.2) 78 
LINETS3:2, 0)-13.2, 0) 

LINE (0, -3.2)-(0, 3.2) 

LOCATE 2, 2: PRINT "Phasenplot" 


RANDOMIZE TIMER 
FOR i = 1 TO 40 
x=3%* RND -- 3: y = 3 * RND:- 3 
FOR j = 1 TO 20000 
Kies RRy;=ar* SINCX) 
y-x 
xexl 
PSEIHREY), 13:17 \.3 
NEXT j 
NEXT i 
e$ = INPUT$(1): SCREEN O 
END 


17.7 Physik: Ising-Modell 


Attraktor nach Oliviera 


Bild 17.13 Attraktor nach Oli- 
viera 


Für die Magnetisierung nach dem Ising-Modell konnten M. J. de Oliviera u. a. 
(Devil’s Staircase and Strange Attractor in the Ising Modell [24], Seite 427) folgendes 
Modell aufstellen 


M, Se pM,-ı +H 


MH = tanh 7" 


Dabei ist n die Anzahl der berücksichtigten Spin-Zonen, p, T sind Parameter des Mo- 
dells. Oliviera fand durch numerische Berechnung der Ljapunow-Exponenten 


%=0.12) Evidenz für einen seltsamen Attraktor bei 
1 a rt bei den Parameterwerten 


Der (vermutliche) Attraktor hat das Aussehen einer Hysteresis-Schleife, 


Das Bild im Phasenraum von (T, p) liefert die verschiedenen Magnetisierungs-Zonen 
(siehe Farbtafel 3). Die linke obere Ecke stellt die Zone des Paramagnetismus dar; der 
unterste Eckpunkt heißt Lifschitz-Punkt. Die linke, untere Ecke bildet den Bereich des 
Ferromagnetismus. Der blütenförmige Rest der Abbildung bildet die modulierte ma- 
gnetische Phase. 


Der Phasenraum im Bereich pxT =[0.4;1.6]x[0.1;1] kann mit dem Turbo C-Programm 
ising2.c dargestellt werden. 


/* ising2.c */ 
#Hinclude <stdio.h> 
#include <graphics.h> 
#include <conio.h> 
#Finclude <math.h> 


void main(void) 

| 

double e,m,ml,m2,T,p; 

int i,gdriver,gmode; 

gdriver = 9; gmode = VGAHI; /* VGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 


for (p=0.4; p<=1.6; p+=0.001875) 
for (T=0.1; T<=1.0; T+=0.001875) 
( 

ml =m2 =1; 

for (i=1; i<=50; i++) 

| 

e;= exp(2.*m2 - p* mi)/T); 

m = (e-1.)/(e+l.); 

m = m; m =m; 

} 
putpixel((int)((p-0.4)*533.),480-(int)((T-0.1)*%533.),1+Cint)((m+1)*7)); 
j 
do (} while(!(kbhit())); 
closegraph(); 
return; 

) 
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In diesem Abschnitt werden weitere Anwendungen aus der Biologie, der Theorie der 
Zellularautomaten und Clusterbildung vorgestellt. 


18.1 Biologie: Lotka-Volterra-Gleichungen 


Das bekannteste Modell eines Räuber-Beute-Systems stammt von Volterra und Lot- 
ka. Mit Hilfe dieses Modells konnte die dramatische Abnahme des Sardinen- 
Fischfangs (nach dem ersten Weltkrieg) erklärt werden. Ist x die Beute- und y die 
Räuber-Population, so gelten die Lotka-Volterra-Gleichungen 


x=ax-bxy=f(x,y) 
y=-cy+dxy= g(x,)) 


Bild 18.1 Trajektorien und 
Phasenplot des Volterra-Modells 
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dabei sind a,b,c,d positive Konstanten. a,c sind die Geburtenrate der Beute bzw 
Sterberate des Räubers. b,d geben die Abnahme der Beute bzw. den Zuwachs FE 
Räubers an aufgrund der Begegnungen Räuber-Beute. Der Fixpunkt ist ein stationä- 
rer Punkt des Systems; man erhält ihn bei verschwindenden zeitlichen Ableitungen 
Diese Bedingung liefert den (nichttrivialen) Fixpunkt 


= c|a 


Für x=0ry=0 erhält man den Ursprung als trivialen Fixpunkt, der aber biologisch 


uninteressant ist. Ob oder wie schnell der nichttriviale Fixpunkt erreicht wird, hängt 
von der Dynamik des Systems ab. 


Der obere Teil von Bild 18.1 liefert die typischen Trajektorien eines Räuber-Beute- 
Modells. Die Maxima der zahlenmäßig geringeren Räuber hinken zeitlich hinter den 
Maxima der zahlenmäßig überwiegenden Beutetiere nach. Im unteren Teil der Abbil- 
dung befindet sich ein Phasenplot für verschiedene Anfangsparameter. Deutlich sieht 
man hier, wie sich die Kurven entweder der Grenzkurve oder dem Fixpunkt nähern. 


Dieses stetige Modell von Lotka-Volterra kann auf verschiedene Arten diskretisiert 
werden. Eine Mischung aus den Verfahren von Euler und Heun stellt der folgende 
Algorithmus dar. 


Attraktorgebiet der Volterra-Gleichungen 


Bild 18.2 Attraktionsgebier des 
Volterra-Systems 
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Für r=0 erhält man die Eulersche Methode, für r=h diejenige von Heun. 


Setzt man die Parameter des Volterra-Systems konstant gleich 1 und faßt r,h als Pa- 
rameter auf, so erhält man den Parameterraum (r,h). Peitgen und Richter [22] konn- 
ten zeigen, daß sich dort mindestens ein seltsamer Attraktor befindet. Für 
h=08Ar=0.86 findet im Parameterraum eine Hopf-Bifurkation statt und es er- 
scheinen Arnold-Zungen. Für r=h=0.739 gelangt man in die Nähe des Attraktors 
und findet eine anziehende, periodische Bahn und einen invarianten Kreis (Bild 18.2). 


Das Attraktionsgebiet kann mit Hilfe des Quick Basic-Programms volt2.bas gezeich- 
net werden. 


'volt2.bas 
"Attraktionsgebiet des Volterra-Systems 


CONST r= .86: h= .8 

DIM fl, gl, x, y, x0, yO AS DOUBLE 
BEE fnF X, y) Rx y 

DEF ing. IX, y):=—-y,+,X.#y 


SCREEN 12: CLS 
WINDOW (.01, 0)-(5.31, 4.01) 
LINE (.01, 0)-(5.31, 4.01), „ B 


FOR x0 = .01 TO 5.31 STEP .008281 

FOR yO = .01 TO 4.01 STEP .008333 

x=x0: y=y0 

FOR i = 1 TO 100 
fl = fnf(x, y): gl = fng(x, y) 
l=x+ıh/2%*(fnfix+sr*fl,y+tr*rg+fl) 
yl=y+h/2*(gl + fngx +r* FIEOy:r7R%.9g1)) 
x=xl:y=yl 
IF (ABS(x - 1) < .05) AND (ABS(y - 1) < .05) THEN PSET (x0, y0), 4: GOTO neu 
IF (ABS(x) > 10) OR (ABS(y) > 10) THEN PSET (x0, yO), 9: GOTO neu 

NEXT ij 
PSET (x0, y0), 14 

neu: 

NEXT yO 

NEXT x0 


"Einzeichnen des invarianten Kreises 

x = .999: y = .999 

FOR i = 1 TO 3000 
fl = fnf(x, y): gl = fng(x, y) 
ex sh L2 rn tl,y+rr* gl) + fl) 
yl=y+h/2*(gl + fnax tr =41,.y+-0* 91)) 
x=xl: y=yl 
PSET (x, y), 12 

NEXT i 

e$ = INPUT$(1): SCREEN 0 

END 
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18.2 Biologie: Modell von Metz 


Parasit-Wirt-Modell nach Netz 


Bild 18.3 Hopf-Bifurkationen 
beim Modell von Metz 


Von dem Biologen J. A. Metz stammt das folgende Wirt-Parasit-Modell 


In+1l:s an 


(zitiert nach H. Lauwerier: Two-dimensional Iterative Maps im Sammelband [13]). 
Für den Parameter a gilt hier die Einschränkung 1<a<49216. Es existiert ein 
(nichttrivialer) Fixpunkt, wenn die Ungleichung 


2(a-1)-alna Ina 


gilt. Hier ändert sich das Vorzeichen des Nenners für a= 1.6304. Daraus folgt, daß im 
Bereich 


1.6304 < a< 4.9216 


Hopf-Bifurkationen stattfinden. Für Bild 18.3 wurde a=4.2 gewählt, die obige Un- 
gleichung liefert damit b= 10.57=10. Man sieht deutlich, daß der innere Zyklus an- 
ziehend, der äußere dagegen abstoßend ist. Die Abbildung wurde mit dem Basic- 
Programm nmetz.bas erstellt. 
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'metz.bas 
"Parasit-Wirt-Modell nach J.Metz 


CONST a:= 4.145: b = 10 

DIM i AS INTEGER 

DIM x, x1, y AS DOUBLE 

SCREEN 12: CLS 

WINDOW (-20, -50)-(400, 1000) 

LINE (-20, -50)-(400, 1000), „ B 

LOCATE 2, 2: PRINT "Parasit-Wirt-Model] nach Metz" 


x = 200: y = 60 
FOR i = 1 TO 5000 


xl =a* x * EXP((1 - SOAR(1 + y)) / b) 
Veran X xl 


x=xl 

PSETIIX y).,.1 # 1=\. 380 
NEXT i 
e$ = INPUT$(1): SCREEN 0 
END 


18.3 Biologie : Modell von Crofton 


Bild 18.4 Attraktorgebiet des 
Crofton-Modells (Achsen log- 
arithmisch) 


Der Parasitologe H. D. Crofton publizierte 1971 das Wirt-Parasit-Modell 
MX, de 
n+l (1 +y, er 


Ant 7 (14,,)" 
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(Crofton H. D.: A qualitative approach to parasitism, Parasitology, 63). Der Parame- | 
ter A hat die Bedeutung der Wachstumsrate des Wirts, k ist ein Maß für die Parasi- 
tendichte. 


Der (nichttriviale) Fixpunkt berechnet sich zu 


(&ebr)=[RBE 1) 


Er ist stabil für alle A, falls k<2, für k>2 für 


k-2 
BE b + J) 
Im Fall A=2Ak=5 erhält man den Fixpunkt (2.2974|0.1487). Um das Attraktions- 
gebiet zu bestimmen, führt man für jeden Punkt des Bereichs 


[_6<logx <4}x{-4<logy< 2} eine größere Anzahl von Iterationen durch und prüft 


die Konvergenz zum Fixpunkt. Färbt man im Konvergenzfall die Startpunkte ent- 
sprechend ein, so erhält man Bild 18.4. Das Vorgehen kann dem Pascal-Programm 
crofton.pas entnommen werden. 


program crofton; { Wirt-Parasit-Modell nach Crofton } 
[$N+) 


uses crt,graph; 
label naechst; 
const lambda=2.0; k=5; eps = 5e-7; ur 
In10= 2.302585093; 
var S,x,x0,x1,xfix,y,y0O,yfix : double; 
j,Graphdriver ,‚Graphmode: integer; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ,‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 


xfix := exp(1.2*1n(2)); yfix := exp(0.2*1n(2))-1; 
xX0 := -2.5; 
while x0<=4.0 do 
begin 
y0 := -3,5; 
while y0<=3.0 do 
begin 
X := exp(x0*1n10); 
y := exp(y0*1n10); 
for i:=1 to 200 do 
begin 
S := exp(-k*ln(1+y)); 
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xl := lambda*x*s; 
y := x*y*s/(l+y); 
x := xl; 
ir y<1.0e-99 then 
begin 
putpixel (round( (x0+2.5)*98.4612) ,480-round((y0+3.5)* 98.4612),9); 
goto naechst; 
end; 
if (abs(x-xfix)<eps) and (abs(y-yfix)<eps) then 
begin 
putpixel(round((x0+2.5)*98.4612) ,480-round((y0+3.5)* 98.4612), 12); 
goto naechst; 
end; 
end; 
putpixel (round( (x0+2.5)*98.4612) ,480-round( (y0+3.5)* 98.4612) ,14); 
naechst: 
y0O := y0+0.0101562285; 
end; 
x0 := x0+0.0101562285; 
end; 
repeat until keypressed; 
closegraph; 
textmode(lastmode) 
end. 


18.5 Zellularautomat mit 3 Nachbarn 


Bild 18.5 Zellularautomat von 
Wolfram 


Die ersten Ansätze zur Automatentheorie stammen von John von Neumann (Ende 
der vierziger Jahre) und von A. Turing (1952). Sehr populär wurden die Zellularau- 
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tomaten durch das Spiel Life von John Conway und dessen Publikation durch Martin - 


Gardner im Februarheft 1972 des Scientific American. Die grundlegende Arbeit über 
Zellularautomaten wurde von Stephan Wolfram in Review of Modern Physics (Juli 


1983) publiziert; dieser Autor hat später auch das bekannte Programm Mathematica 
geschrieben. 


Bei Zellularautomaten beschränken wir uns hier auf eindimensionale (lineare) und 
auf binäre; d.h. solche, die nur die Zustände 0 bzw. 1 annehmen können. Wolfram 
beschrieb u.a. folgenden Zellularautomaten an: Eine Zelle wird genau dann lebendig 


(Zustand 1), wenn genau einer ihrer beiden Nachbarn lebt. Sie stirbt (Zustand 0), 
wenn beide Nachbarn leben oder t01 sind. Damit gibt es folgende Übergänge 


000; 10>1 01-1 11-0 


Diese Zuordnung kann als Addition ® modulo 2 oder als xor-Verknüpfung von Bits 
interpretiert werden. Die Produktionsregel des Automaten von Bild 18.5 ist somit 


Km 7? Kn-1 Dix = An] KOT Kr] 
Aus dem Pascalschen Dreieck, bestehend aus den Binomialkoeffizienten, erhält man 
das Sierpinski-Dreieck, wenn man jeden Binomialkoeffizienten durch seinen Rest bei 
der Division durch 2 ersetzt. Die obige Formel generiert damit das Sierpinski-Dreieck. 


Einen ähnlichen Automaten erhält man, wenn man den vorhergehenden Zustand der 
Zelle selbst einbezieht 


An = An+l ©®x, xy 


Für drei Nachbarn gibt es 2° =8 Möglichkeiten. 
111-a 110-5 101-c 10-d 
011-e 010-f 001g 00h 


Somit könnte man prinzipiell 2° =256mögliche Regeln aufstellen. Nach Wolfram 
aber sind nur solche Regeln zugelassen, die weder links noch rechts bevorzugen; d.h. 
zu symmetrischen Ergebnissen führen. Damit bleiben nur noch 32 solcher Regeln 
übrig. Diese können, entsprechend der oben gemachten Aufzählung, beschrieben 
werden durch die Zahlenreihe 


az brcidVbIe ZA 


Faßt man diese Zahlen als Stellen einer Binärzahl auf, so läßt sich jede Regel durch 
die so gewonnene Codierung C ausdrücken. 
C = 128a+64b+32c+16d+8b+4e+2d 


Dies soll am Beispiel des Sierpinski-Dreiecks erläutert werden. Gemäß den genannten 
Rechenregeln beim Pascalschen Dreieck erhält man 


a4 
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111-0 110-1 101-0 10-1 
011-1 010-0 001>1 000-0 


Hieraus ergibt sich die Zahlenfolge | | 
0 10 110 1 0=264+16+8+2=90 


Dies bedeutend das Sierpinski-Dreieck erhält die Codierung 90. Entprechend liefert 
die Codierung 150 das Wolfram-Dreieck. 


Das folgende Quick Basic-Programm ce113.bas startet jeweils mit einer Zelle und ge- 
neriert so ein Dreieck z.B. nach Sierpinski oder Wolfram. Die gewünschte Produkti- 
onsregel ist als ganze Zahl <255 einzugeben, ebenso die gewünschte Zeilen- bzw. 
Spaltenzahl. Falls der Automat vorher abstirbt, wird die eingegebene Zeilenzahl nicht 
immer erreicht. 


'cel13.bas 
'Zellular-Automat mit 3 Nachbarn 


CONST xm = 320: ym = 240: 'Bildschirm-Mitte 
DIM i, j, m, n, p, q, s AS INTEGER 


INPUT "Produktionsregel (ganze Zahl 0..255) eingeben"; c 
INPUT "Wieviele Zeilen,Spalten'; p, n 
n=en\2:p=p\2 


DIM x(2 * n), y(2 * n), b(7) 
SCREEN 12: CLS 


m = c:'"Binärentwicklung 
FOR j=0T07 

q = INT(m / 2): b(j)=m-2*q:m=q | 
NEXT j 
x(0) = 0: x(2 * n) = 0: x(n) = 1: PSET (xm, 0) 
FOR j=1T02*p+1 

FOR i = 1702 *%n - 1 

s=x(i +1) +2*x(i) +4 * xti - 1): "Produktions regel 


y(i) = b(s) 
NEXT i 
FRi=-172*n-]1 
x(i) = y(i) 
IF x(i) = 1 THEN PSET (xm - n + i, J) 
NEXT i | 


NEXT j 
e$ = INPUT$(1): SCREEN 0 
END 
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Te 
18.6 Zellularautomaten mit 5 Nachbarn 


Die Theorie von Wolfram kann direkt auf Zellularautomaten mit 5 Nachbarn verall- 
gemeinert werden. Läßt man bei solchen Automaten für die Produktionsregeln nur 


Summenterme zu, so ist sein Schicksal eindeutig vorherbestimmt. Wolfram nennt 
solche Automaten daher »totalitär«. Eine Summe der Form 


S=Xn2 +%,-] a An +%a4 +Xn42 


kann daher nur die Werte 0..5 annehmen. Codiert man diese Werte gemäß 


5>a 4>b 3-c 2>d 1>e 0-0 


Bild 18.6 Zellularautomat nach 
Regel 28 


so gibt es 2° =32 Regeln, die wieder nach folgendem Schema codiert werden 


C = 32a+16b+8c+4d+2e 


Das Muster 101010 führt beispielsweise zur Codierung C=42. Für die Codierung 
gibt es damit insgesamt 64 Werte; da 2e sicher gerade ist, kann eine Produktionsregel 
(wegen der Binärdarstellung) nur eine gerade Zahl < 64 sein. 


Das Turbo Pascal-Programm ce115.pas erzeugt Zellularautomaten gemäß den be- 
schriebenen Regeln bei 5 Nachbarn. Damit der Bildschirm vollständig gefüllt wird, 
wird die erste Zellgeneration mit Zufallszahlen ausgelost. Der untere Rand des Bild- 
schirms wird natürlich nur dann erreicht, wenn der Automat nicht vorher abstirbt. 
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program cel15;{ Zellularautomat mit 5 Nachbarn ) 
uses crt,graph; 


const xm = 320; ym = 240; | Bildschirm-Mitte } 
var C,i,j.Mm,q,S : integer; 
x,y : array[l0..2*xm+2] of integer; 
b : array[0..5] of integer; 
Graphdriver,,‚Graphmode: integer; 


begin 

write( 'Produktionsregel (gerade ganze Zahl 0..64) eingeben! '); 
readIn(c); 

GraphDriver := Detect; 
Initgraph(GraphDriver,GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode); 


randomize; 

m:=c; 

for j := 0 TO 5 do { Binärcodierung ) 
begin 
q := mdiv 2; b[Lj]) := m-2*%q; m :=q 
end; 


x[0] := 0; x[1] := 0; 
x[2*xm+1] := 0; x[2*xmt2) := 0; 
for i := 2 to 2*xm do 
begin 
x[Li] := random(2); 
if x[Li]=1 then putpixel(i-1,0,13); 


end; 
for j := 1 to 2*ym+l do 
begin 
for i := 2 to 2*xm do 
begin 
S := x[i-2] + xLi-1] + xli] + xLi+1] + xLi+2]; | Produktionsregel } 
yli] := b[s] 
end; 
for -i := 2 to 2*xm do 
begin 
x] = )y[1]; 
if x[LiJ=1 then putpixel(i-1,j,13); 
end 
end; 
repeat until] keypressed; 
closegraph; 
textmode(1lastmode) 
end. 


Mit Hilfe der angegebenen Regeln gelang es Wolfram, die totalitären Zellularauto- 
maten vollständig zu klassifizieren. Anschaulich gesprochen lassen sich diese Auto- 
maten in vier Klassen einteilen 


a 
Klasse Struktur 


Regelbeispiele 
1 vollständig homogen 0,16,32,36,48 
2 einfache periodische Strukturen 8,24,40,56,58 
3 fraktale Strukturen 6,10,12,14,18 
4 komplexe quasiperiodische Strukturen 20,52 


Bild 18.7 Zellularautomat nach 
Regel 52 


18.7 Zellularautomat von Pickover 


In der Zeitschrift Algorithm hat C. Pickover 1990 einen interessanten Algorithmus 
namens Gerade-ungerade-Wachstum (even-odd-growth) angegeben, der einen schö- 
nen Automaten erzeugt. Er beruht darauf, daß abwechselnd mit 4 Nachbarn (vox- 
Neumann-Umgebung) und 8 Nachbarn (Moore-Umgebung) gerechnet wird. Die 
relativ komplizierte Produktionsregel kann direkt dem Listing des Turbo C- 
Programms pickovr.c entnommen werden. 


Automaten mit Moore-Umgebungen können beliebig komplex werden. Dies kann 
man an einem kleinen Beispiel abschätzen. Hat ein Automat n Zustände und k 


. nk .._ge 
Nachbarn, so gibt es (ohne einschränkende Symmetrieregeln) insgesamt mögliche 
Regeln. Für einen binären Zellularautomaten mit Moore-Umgebung gibt es damit 


2?" - 2256 _ 210256 | 107355 — 1077 


A RZ 
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IREUEN 
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Bild 18.8-Zellular-Automat von 
Pickover 


Zustände, dies entspricht der Anzahl aller Atome im ganzen Universum! Bei der Ab- 
schätzung wurde die Näherung 2! = 1024 = 10° benützt. 


/* pickovr.c */ 
/* Zellular-Automat nach Pickover: gerade,ungerade-Regel */ 


#include <stdio.h> 

#include <graphics.h> 

include <conio.h> 

#define N 120 /* max.1/4 der Bildschirm-Höhe */ 
char x[NJLN],y[NILN]; 

const int xm=320,ym=240; /* Bildschirm-Mitte */ 


void main(void) 
1: 
int k,s=0; 

register int i,j; 

int gdriver,gmode; 

gdriver = 9; gmode = VGAHI; /* NGA-Modus 640 x 480 */ 
initgraph(&gdriver,&gmode," "); 
rectangle(0,0,639,479); 


x[L0J[L0] = 1; 
for(k=1; k<N; k++) 
TE 
for(i=0; i<=k; it+) 
for(j=0; j<=k; j++) 
if (xLiJLjI>=0) 
# er 
if k%22=]) 
{ 
if (i>=1 && j>=l) 
s= xLi+1JL5I+xLi-13C53I+xLiJ05+11+RTI IT 5-1): 
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else if (i==0 && j>=1) 
s = 2*x[1J[CjJ+x[OJLj+1J+x[0JLC5-1]; 
else if (i>=1 && j==0) 
s = 2*x[i][1J+ xLi+1JL0J+x[i-1J[0]; 
YyL1JL9J=S; 
] 
else 
[ 
if (i>=1 && j>=1) 
se xLi+1JL5 ICH 1IC5IXLIIL5+LIHKLIIC5- LIHRLI+ I jr 174 
xLi-1JLj+1]+xLi-1]05-19+xLi+1105-1]; 
else if (i==0 && j>=1) 
s = 2*x[1JL5J+2*xL1IC5r1I+2*xL1IC5-1I +XLOICj+17 +x[0J[j-1]; 
else if (i>=1 && j==0) 
s= 2*xLiJL1J+2*xLi+1JC13+2*xLi-1ICLIFXLI+1JIC0I+XLI-13002: 
yCillj]=s; 
] 
j 
else yLiJLjJ=x[LiJ[LjJ; 
for(i=0; i<=k; i++) 
for(j=0; j<=k; j+) 
( 
intac; 
static int f[]J = (0,10,9,14,13,12,6,15}; 
if (k % 2==1) 
| 
c = f[yL[iJl[j]]; 
putpixel (xm+2*i ,ym-2*j,c); 
putpixe] (xm-2*i ,ym-2*j,c); 
putpixel (xm+2*i ‚ym+2*j,c); 
putpixel (xm-2*i ,ym+2*j,c); 
] 
xLillj]J = (yLiJljl==1) ? 1: 0; 
} 
) 


do [} while(!(kbhit())); 
closegraph(); 

return; 

j 


18.8 Cluster-Bildung (DLA) 


Das Bilden von Clustern findet z.B. statt bei Anlagern von Teilchen an Oberflächen, 
elektrischen Entladungen, Wachstum von Dentriten und Diffusion von Wasser in Öl. 
Im Englischen spricht man hier von Diffusion Limited Aggregation (DLA), etwa 
»durch Diffusion begrenztes Wachstum«. 
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Der zugrundeliegende Mechanismus der Clusterbildung ist theoretisch nicht in jedem 
Fall verstanden, daher ist eine Computer-Simulation von großem Interesse. Eine sol- 
che Simulation ist sehr rechenaufwendig, die Figuren in Bild 18.9 benötigen ca. 2 
Stunden Rechenzeit auf einem Intel 80486-Rechner. 


In allen Fällen muß mit einem geeigneten Verfahren geprüft werden, ob die entste- 
henden Cluster wirklich fraktale Eigenschaften haben. Dies kann mit dem im Ab- 
schnitt 5.4 angegebenen Box-Counting-Algorithmus erfolgen. Typische fraktale Clu- 
ster weisen etwa die Dimension des Sierpinski-Dreiecks mit D=1,58 auf. Sehr dichte 
Schneeflocken haben eine fraktale Dimension von D=1.85+0.06 (vgl. E.Stanley: 
Fractals and Multifractals, im Sammelband Fractals and Disordered Systems, Sprin- 
ger 1991 (Ed. A. Bunde/ S. Havlin)). 


Cluster Im Kreis 


x a $ 
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Cluster auf Geraden 


Bild 18.9 Cluster im Kreis und 
auf Geraden 


Das folgende Quick Basic-Programm clustl.bas erlaubt die Simulation des radialen 
Cluster-Wachstums (in einem Kreis). Der Algorithmus ist relativ einfach. Zunächst 
wird ein beliebiger Punkt zufällig ausgelost und innerhalb seiner von-Neumann- 
Umgebung verschoben. Sodann wird geprüft, ob sich in seiner Moore-Umgebung ein 
Clusterteilchen befindet. Ist dies der Fall, so wird der Punkt gesetzt und der Abstand 
(zum Bildschirm-Mittelpunkt) aktualisiert, andernfalls wird der Punkt gelöscht; d.h. 
es wird ein neuer Punkt ausgelost. Die Entfernung der auszulosenden Punkte wird 
über den Parameter p gesteuert. 


'c]ust.bas 
'CJusterbildung im Kreis 


CONST PI = 3.141529653# 
CONST xm = 320: ym = 240: 'Bildschirm-Mitte 
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CONST p = 0.04: 'Abstandsparameter 
DIM dir, dist, s, x, y AS INTEGER 
DIM z AS LONG 

DIM alpha, r AS SINGLE 


SCREEN 12: CLS 
RANDOMIZE TIMER 
dist = 0: z=0 
PSET (xm, ym), 14 


naechst: 
A A | 
r = dist * (1 + RND *p): '"Zufallsabstand 
alpha = 2 * PI * RND: 'Zufallswinkel im Bogenmaß 
x = xm + INT(r * COS(Calpha)) 
y = ym + INTCr * SINCalpha)): 'Zufallspunkt (x,y) 
DO WHILE INKEY$="" 
dir = INT(4 * RND): '"Zufallsrichtung 
SELECT CASE dir 


CASE REIT 

CASEFLEXENG 

CASE 2: y=y-] 

GASE3: ya=ı ya] 
END SELECT 


‘Untersuchen der Moore-Umgebung 
= POINT(x - 1, y): s=s + POINT(x + 1, y) 
s + POINT(x, y - 1): s=s + POINT(x, y +1) 
=.5 + POINT(x #:1,,y + 1) S =252# POINIGG Ta yzn 
s + POINT(x - 1, y+1)z s=s + POINTx +1, y-]) 
Fs > 0 THEN 
PSETI(X,7y),01.# 27\,. 1000 
"Aktualisieren des Abstands 
IF dist < ABS(x - xm) THEN dist 
IF dist < ABS(y - ym) THEN dist 
GOTO naechst 
END IF 
IF CABS(x - xm) > dist + 4) OR (ABS(y - ym) > dist + 4) THEN GOTO naechst 
LOOP 
A$ = INPUT$(1): SCREEN 0 
END 


"u un un Wü 
l 


ABS(x - xm): 
ABS(y - ym) 


Ähnlich funktioniert das Verfahren für die Clusterbildung an einer geraden Kante. 
Der von der Prozedur naechstpunkt ausgeloste Punkt wird zufällig verschoben (in sei- 
ner von-Neumann-Umgebung). Die Funktion nachbarn übernimmt dann die Zählung 
der (etwaigen) Nachbarn. Findet sich ein Nachbarpunkt, so wird der Punkt angela- 
gert; andernfalls der nächste Punkt gewählt. Das Verfahren kann vom Turbo Pascal- 
Program clust2.pas durchgeführt werden. 
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program clust2; ( Clusterbildung auf Geraden ] 


uses crt,graph; 


label] naechst; 
const xm = 320; ym = 400; | Startzeile ym ] 
var dist,x,y : integer; 
z : longint; 
Graphdriver,Graphmode: integer; 


function nachbarn(x,y:integer):integer; 
{ Untersuchen der Moore-Umgebung] 

var Ss: integer; 

begin A 


s := getpixel(x-1,y); 

Ss := s + getpixel(x+l,y); 

Ss := Ss + getpixel(x,y-1); 

Ss := s + getpixel(x,y+l); 

Ss := s + getpixel(x+l,y+1); 
S :=s + getpixel(x-1,y-1); 
Ss := s + getpixel(x-1,y+1); 


nachbarn := s + getpixel(x+l,y-1); 
end; 


procedure naechstpunkt(var x,y:integer); 
var dir : integer; 
begin 
dir := random(4); { Zufallsrichtung } 
case dir of 
0: begin 
x :2= x-1; if x<40 then x :=x +2; 
end; 
1: begin 
Kıs=.x+l; 
if x > 600 then x :=x - 2; 
end; 
2: begin 
Yır=oy-1; 
HI ym-dist-12 then y :=y + 2; 
end; 
3: y := y+l end; 
end; 


begin 

GraphDriver := Detect; 
Initgraph(GraphDriver ‚GraphMode, '\tp\bgi'); 
SetgraphMode(Graphmode) ; 
rectangle(0,0,639,479); 


randomize; 

dist := 0; z := 0; 
putpixel(xm,ym,14); 
naechst; 


z := z+l; 
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gı= xm+trunc((random-0.5)*560 
y := ym-dist-6; [ Zufall spun 


repeat RR 
naechstpunkt(x,y); ER 
if nachbarn(x,y)>0 then EN 
begin 
putpixel(x,y,14); te 
‚if dist<ym-y then dist := my; oo 


goto naechst; 


i ie INOERTER oe SR 
end; nt 
if y = ym then r De 
begin putpixel(x,y,14); goto naechst end; 
until keypressed; BRLER PN 
repeat until eypressed; — 
closegraph; 
textmode(lastmode) 
end. 
. \ a , a - 
BER 5. Ste 52 
BER £ wi A; ih vRräge armen 
gi “ Bi er ie ap ar 
- [3 
x 
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Attraktor: Ein Attraktor eines dynamischen Systems f’ ist nach J. P. Eckmann eine 
kompakte Menge A mit folgenden Eigenschaften 


1. A ist invariant unter f!: f’ (A)=A 


2. A hat eine offene Umgebung, die sich unter f' auf A zusammenzieht: 


lim f!(A)=A 


t>» 


3. A hat keine Untermenge, die transient ist. A kann nicht in nichttriviale, kom- 
pakte und invariante Mengen zerlegt werden; d.h. kann nicht in separate At- 
traktoren zerlegt werden. 


Autonomes System: Ein dynamisches System heißt autonom, wenn es nicht explizit 
von der Zeit abhängt. Autonome Systeme haben gegenüber heterogenen folgende 
Vorteile: 


1. Die Trajektorien sind eindeutig festgelegt durch die Anfangsbedingungen 


2. Die Trajektorien können sich nicht schneiden. 


Attraktionsgebiet: Das. Attraktorgebiet oder Bassin eines Attraktors ist die offene 
Menge aller Anfangsbedingungen x9, für die gilt: lim f '(x)E A. 
En 2 


Bahn: Die Menge der Punkte If’ IE mit f(ty)=%, heißt die Bahn, Orbit oder 
Trajektorie zur Anfangsbedingung Xo- 


Box-Count-Dimension: Wird eine Menge von N, Quadraten bzw. Würfeln der 
Kantenlänge € überdeckt, so heißt der Grenzwert 


die Box-Count-Dimension oder Kapazität. Sie ist ein Spezialfall der Hausdorff- 
Besikowitch-Dimension. 
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Chaos-System: Folgende Eigenschaften eines dynamischen Systems werden i.a. als 
kennzeichnend angesehen: 


1. Der Bereich des Phasenraums, der von den Trajektorien angelaufen wird, ist 
beschränkt. i 


2. Die Trajektorien sind nicht periodisch. 
3. Ein Attraktor des System hat i.a. fraktale Dimension. 


4. Das System hängt empfindlich von den Anfangsbedingungen ab. D.h. die Tra- 
jektorien zweier beliebig benachbarter Anfangszustände divergieren nach end- 
licher Zeit. Die Divergenzrate kann mithilfe des Ljapunow-Exponenten gemes- 
sen werden. 


Correlationsintegral: Das Correlationsintegral einer Punktmenge ist definiert durch 


CS Yrle-k -x,) 


N SE 9 


Dabei ist die Heavyside-Funktion erklärt als 


0 fürx<sO 


u=|" für x>0 


Correlationsdimension: Stellt man das Correlationsintegral als Potenzgesetz dar 
C(r)«r?, so heißt der Exponent D die Correlationsdimension. Dieses Verhalten 
läßt sich auch als Grenzwert schreiben 


Dimensionsbegriff: Jeder Dimensionsbegriff sollte über folgende Eigenschaften 
verfügen: 


1. ECF => dim(E)< dim(F) Montonie 
2. dim(EUF)= max(dim(E),dim(F)) Stabilität 


3. di Ur). sup dim(F,) Stabilität bei abzählbaren Mengen 


i=l lSi<o 


4. Ist f eine Ähnlichkeitsabbildung, so gilt dim f(E) = dim(E) Invarianz 


276 19 Kleines Lexikon der Chaostheorie 


5. ECR" = dim(E)=n offene Teilmenge des R" 


6. Für glatte Mannigfaltigkeiten wie Geraden, Ebenen, Würfel stimmt die Di- 
mension mit der Euklidischen überein. 


Dissipatives System: Ein System heißt dissipativ, wenn sich ein Volumenelement des 
Phasenraums auf einen Punkt zusammenzieht. Es gilt dann divF<0. Dies ist ins- 


besondere bei physikalischen Systemen mit Reibung der Fall. Die Volumenkon- 
traktion wird durch einen negativen Ljapunow-Exponenten beschrieben. Verglei- 
che dazu konservative Systeme. 


Durchmesser: Ist U eine nichtleere Teilmenge des R” ‚so heißt 
ul = supl|x- y];x,» € u} 


der Durchmesser von U. 


Dynamisches System: Ein dynamisches System ist bestimmt durch ein System von 
Differenzengleichungen 


xt+D)=f&,n=f'&x) 
oder Differentialgleichungen (auch Fluß genannt) 
x=F(x) 


Elliptisch: Ein Fixpunkt heißt elliptisch, wenn die Realteile der zugehörigen Eigen- 
werte verschwinden. 


Entropie: Der Ausdruck 


N 
E-= I -np, 
i=1 


kann wahlweise als Entropie oder als Informationsgehalt eines Systems interpre- 
tiert werden, je nachdem wie die Wahrscheinlichkeit p; gedeutet wird. 


Feigenbaum-Bifurkation: Ein System habe bis zu einem Parameterwert 7 einen 
stabilen Fixpunkt. Wird dieser Fixpunkt bei einem weiteren Anwachsen des Pa- 
rameterwertes instabil und zerfällt in zwei stabile Fixpunkte, so spricht man von 
einer Feigenbaum- oder Gabel-Bifurkation. 
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Feigenbaum-Konstante: Ist r, die -te Bifurkationsstelle eines dynamischen Systems, 
so existiert für eine Klasse von Funktionen der gemeinsame Grenzwert 


If 
F = lim #— 1 - 4.669202.. 


ne 74 Mn 


Dieser Grenzwert wird Feigenbaum-Konstante genannt. 


Fixpunkt: Ein Punkt xe R” heißt Fixpunkt, wenn er die Bedingung x = F(x) erfüllt. 


Fraktal: Eine Punktemenge Fe R” heißt ein Fraktal nach K.Falconer[07], wenn gilt 
1. F hat eine Feinstruktur; d.h. sie zeigt auf beliebig kleinen Skalen noch Struk- 


tur. 


2. F ist zu irregulär, um lokal oder global mit der Euklidischen Geometrie be- 
schrieben werden zu können. 


3. F zeigt eine exakte oder angenäherte Selbstähnlichkeit. 


4. F hat eine fraktale Dimension, die meist die Eukidische übersteigt. F kann 
auf einfache Weise definiert werden, meist rekursiv. 


Fraktale Dimension: Zerfällt eine selbstähnliche Menge bei einer zentrischen Strek- 
kung mit dem Streckfaktor k=* in Negleichartige Teile, so ist die fraktale Di- 


r 


mension 


InN 


Geschlossene Bahn: Eine Trajektorie x(t) eines dynamischen Systems heißt geschlos- 
sene Bahn oder invarianter Kreis, wenn für ein f gilt 


F(X)=x 
und x(f) kein Gleichgewichts- oder Fixpunkt ist. 


Grenzsystem: Das Grenzsystem eines 3-dimensionalen dynamischen Systems kann 
sein: 


1. Fixpunkt (alle Ljapunow-Exponenten <0) 


2. Grenzzyklus (ein Ljapunow-Exponent =0) 
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3. Torus (zwei Ljapunow-Exponenten =0) 


4. Attraktor (Ljapunow-Exponenten sind <0,=0 bzw.>0) 


Grenzzyklus: Eine geschlossene Bahn x(t) heißt ein Grenzzyklus, wenn alle Lösungen 
des dynamischen Systems, die durch die Punkte einer Umgebung verlaufen, gegen 
x(f) konvergieren. 


Hausdorff-Besikowitch-Dimension: Sei E eine Teilmenge des R” und [u;} eine € - 


Überdeckung von E. Für eine nichtnegative Zahl r sei das Infimum der Durch- 
messer definiert 


H,(E)= u) u, 
i=1 


Dann heißt die Zahl 
D=inf{s.H? (E)= 0\=sup{s:H3 (E)= «| 


die Hausdorff-Besikowitch-Dimension. 


Heteroklin: Die Bahn in einem dynamischen System heißt heteroklin, wenn sie an 
verschiedenen Fixpunkten beginnt und endet. 


Heteronomes System: Ein dynamisches System f(x,t) heißt heteronom, wenn es 
explizit von der Zeit abhängt. Jedes heteronome System kann durch die Hinzu- 
nahme einer weiteren Variablen autonom gemacht werden. Ist f(x,t) periodisch 


mit der Periode T, so führt man die Variable 8 =2n 7 ein. Das so entstehende 


autonome System ist 2r -periodisch und hat den PhasenraumR®”xS, wobei 
s=[0,2r) der Einheitskreis ist. 


Homoklin: Die Bahn in einem dynamischen System heißt homoklin, wenn sie an 
einem bestimmten Fixpunkt beginnt und endet. 


Hopf-Bifurkation: Benannt nach dem deutschen Mathematiker Eberhard Hopf 
(1948). Voraussetzung sei, daß alle Eigenwerte eines Systems negative Realteile 
haben mit Ausnahme eines einzigen Paares konjugiert komplexer Eigenwerte 


A=dr)+ib(r); %=afr)-ib(r). Überschreiten diese Eigenwerte für einen Parame- 
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terwert 7 die imaginäre Grenze, d.h. es wird a(r)20, so zerfällt ein stabiler Fix- 
punkt in einen stabilen Grenzzyklus. 


Hyperbolisch: Ein Fixpunkt heißt hyperbolisch, wenn die Realteile der zugehörigen 
Eigenwerte nicht verschwinden. 


Invarianter Kreis: Siehe geschlossene Bahn. 


KAM-Theorem: Benannt nach Kolmogorow (1954), Arnold (1963) und Moser 
(1973). Als bestimmend für die Konvergenz der Reihenentwicklung eines gestör- 
ten Hamilton-Systems hatte Birkhoff den Term 


A 2040, 
angegeben. Verschwindet die Summe im Nenner Zmw;=0 (Resonanz-Bedin- 


gung) für einen Satz von ganzen Zahlen m,, so tritt keine Konvergenz ein. Das 
KAM-Theorem liefert nun eine genauere Abschätzung für die Konvergenz. Gilt 


RL, mo)> BolEm]"" 


für alle ganze Zahlen m,,so kann das gestörte Hamilton-System integriert werden. 
Für Systeme mit f=2 Freiheitsgrade reduziert sich diese Bedingung auf 


0, 


>ße) 


0, m 
2 


Im Falle des Anwachsens der Störung werden zuerst die Bewegungen chaotisch, 
für die das Frequenzverhältnis @,:®, nahezu rational ist. 


Kapazität: Siehe Box-Count-Dimension. 


Kaplan-Yorke-Dimension: Ordnet man die Ljapunow-Exponenten eines Systems 
monoton fallend, so gilt für die Kaplan-Yorke-Dimension (auch Ljapunow- 


Dimension genannt) 
h+th+r+l, 


l 


D=j+ 


j+1 
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dabei ist der Index j gegeben durch die Ungleichungen 


1 +1 
DA, >01 >> <0O 
i=1 ol 


Konservatives System: Ein System F heißt konservativ, wenn die Divergenz des 
zugehörigen Vektorfeldes verschwindet: 


Su 
9x 


i=1 i 


Dies ist insbesondere bei physikalischen Systemen ohne Reibung der Fall. Das 
Volumen eines Volumenelements im Phasenraums bleibt konstant. Vergleiche mit 
dissipativen Systemen. 


divF = 


Ljapunow-Exponent: Ein Ljapunow-Exponent \ eines dynamischen Systems 
kennzeichnet das Verhalten des Phasenraums. A<0 zeigt die Kontraktion, A > 0 
die Expansion. Für endliche Grenzsysteme (siehe dort) muß daher gelten 


Yr<o 


d. h.die Kontraktion überwiegt. 


Periodenverdopplung: Unter Periodenverdopplung versteht man den Zerfall eines 
stabilen Fixpunktes in zwei stabile Fixpunkte. Siehe auch Feigenbaum- 


Bifurkation. 


Periodisches System: Ein System heißt periodisch mit der Periode T, wenn gilt: 
fx, =f&o,,t+T) 


Phasenraum: Hat ein System von n Freiheitsgraden die Zustandsvariablen x;(f), so 
heißt der von den Variablen 


ox,|" 
BosH 


i=1l 


aufgespannte 2n-dimensionale Zustandsraum der Phasenraum des Systems. 
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Poincare-Abbildung: Betrachtet werde ein heterogenes, periodisches dynamisches 
System der Dimension n. Dieses kann auf ein autonomes System erweitert werden, 
dessen Trajektorien auf dem (n+1)-dimensionalen Zylinder R"XS liegen. Ein 
Schnitt durch diesen Zylinder bei festem ® =®, erzeugt die Hyperebene 


2=[x0)e R"XS;0=0,| 


Die Trajektorien schneiden % für 0 =#, +2r . Damit ist die Poincare- Abbildung 
P der Hyperebene % auf sich selbst definiert mittels 


P(x)=f(x,t,) 


Die Poincar&-Abbildung P ist topologisch äquivalent zum Trajektorienverlauf im 
Phasenraum. Dies bedeutet 


1; 
2: 
3. 


Für konservative Systeme erhält ? die Flächeninhalte in $ 
Für eine geschlossene Bahn enthält ? genau einen Punkt 


Die Poincare-Abbildung eines p-periodischen Systems besteht genau aus p 
Punkten. 


. Systeme mit quasi-periodischen Lösungen haben Trajektorien auf einem zwei- 


dimensionalen Torus SxS. Der Poincare-Schnitt liefert hier einen Kreis bzw. 
Halbkreis. 


. Hat das ursprünglich autonome System einen Attraktor, so findet sich dessen 


Struktur auch im Poincare-Schnitt (vgl. Bild 19.1). 


Poincare-Schnitt: Die Menge aller Punkte, die durch Hintereinanderausführen der 
Poincare-Abbildung 


[pt @),., 


erzeugt werden, heißt Poincare-Schnitt. 


Quasiperiodische Lösung: Siehe Torus 
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Bild 19.1 Poincare-Abbildung 


Sarkowsküi-Theorem: Die Sarkowskii-Anordnung der natürlichen Zahlen lautet 
357911»... 
2-3» 2-52 2:7» 2:9»... 
22.3» 2.52 2°.7»... 
2?-3» 2°-5D 2°-7»... 
=p2’2.22:22’P2DL 


Hat eine eindimensionale,stetige Funktion die Periode p, so besitzt sie ebenfalls 
alle Perioden der Länge g , wobei p» q gilt. Insbesondere zieht die Periode 3 alle 
anderen Perioden und damit Chaos nach sich. 


Sattelpunkt-Bifurkation: Fällt bei einem bestimmten Parameterwert ein stabiler mit 
einem instabilen Fixpunkt zusammen, so spricht man von einer Sartelpunkt- 


Bifurkation. 


Sensitive Abhängigkeit: Ein dynamisches System heißt sensitiv abhängig von den 
Anfangsbedingungen, wenn ein ö > 0 so existiert, daß für ein beliebig benachbar- 
tes Element ye U, (x) folgt 


eo-r]>5 
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Seltsamer Attraktor: Ein nichtperiodischer Attraktor heißt seltsam (englisch strange) 
wenn er sensitiv von den Anfangsbedingungen abhängt. ; 


Stabiler Fixpunkt: Ein Fixpunkt y* heiß stabil im Sinne von Ljapunow, wenn es für 
beliebige € >0 ein ö >0 so gibt, daß für die Lösungen y, = f(x,1,) gilt 


t&,n-y* <e Vt>0, falls gilt Iyo -y <d. 


Torus: Für ein System der Periode 2 liegen mit der Periode auch zwei Frequenzen 
Q,,02, fest. 
1. Falls Q,:0, =n,:n, rational ist, kann jede Trajektorie als Schraubenlinie auf 


b 3% . . . 2 
einem Torus CR interpretiert werden, die sich nach n, Umläufen und n, 
Windungen schließt. 


2. Falls das Verhältnis Q,:Q, irrational ist, verlaufen die Trajektorien ebenfalls 


auf einem 2-dimensionalen Torus SxS. Jedoch schließen sich die Bahnen 
nicht, sodaß die gesamte Torus-Oberfläche erfaßt wird. Diese Bewegung wird 
als quasi-periodisch bezeichnet. 


Trajektorie: Siehe Bahn 


Transiente Bahn: Die Bahn in einem Gebiet GCR” mit dem Anfangspunkt 
x, = f(&,t,) heißt transient, wenn gilt x, & G\A, wobei A ein Attraktor ist. 
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senschaftlich orientierte Abhandlung 
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setzt das vorliegende Buch ein. 
Freunde der Computergrafik finden 
eine Vielzahl von Grafiken, Studie- 
rende der Naturwissenschaften zahl- 
reiche Anwendungen und Dozenten 
Grundlagen für einen Kurs oder eine 
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Der Leser erhält fundierte Einblicke in 
Bereiche der dynamischen System- 
theorie wie Fixpunkt-Theorie, Ljapu- 
now-Exponenten, Attraktoren oder 
KAM-Theorie. Das Buch ist eine 
wahre Fundgrube für mathematische 
Algorithmen aus den Bereichen Ite- 
rierte Funktionensysteme, Linden- 
mayer Systeme, Julia-Mengen, 
Mandelbrot-Mengen, Fraktale Kurven 
und Zellular-Automaten, die als Com- 
puterprogramme in den gängigen 
Programmiersprachen realisiert sind. 


Besonderen Wert wurde auf die Dar- 
stellung von Anwendungen gelegt. 
Der Leser erfährt wichtige Auswir- 
kungen des Chaos in der Natur aus 
den Bereichen wie Chemie, Physik, 
Elektronik, Astronomie usw. Ein 
Glossar über die,wichtigsten Begriffe 
der dynamischen Systemtheorie 
schließt das Buch ab. Neben der 
Vielzahl der im Buch aufgelisteten 
rogramme enthält die beigefügte 
iskette zahlreiche weitere Pro- 
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